PPPPPPPPPPPP AAAAAAAAA SSSSSSSSSSSS 
PPPPPPPPPPPP AAAAAAAAA SSSSSSSSSSSS 
PPPPPPPPPPPP AAAAAAAAA SSSSSSSSSSSS 
PRP PPP AAA AAA SSS 

PPP PPP AAA AAA SSS 

daa PPP AAA AAA SSS 

PPP PPP AAA AAA SSS 

PPP PPP AAA AAA SSS 

PPP PPP AAA AAA SSS 
PPPPPPPPPPPP AAA AAA SSSSSSSSS 
PPPPPPPPPPPP AAA ABB SSSSSSSSS 
PPPPPPPPPPPP AAA SSSSSSSSS 
PPP AAAAAAAAAAAAAAA SSS 
Ppp AAAAAAAAAAAAAAA SSS 
PPP AAAAAAAAAAAAAAA SSS 
PPP AAA AAA SSS 
PPP AAA AAA SSS 
PPP AAA AAA SSS 
PPP AAA AAA SSSSSSSSSSSS 
PPP AAA AAA SSSSSSSSSSSS 
Ppp AAA SSSSSSSSSSSS 


Qon 
AION 
COO 
QO 
QO 
AON 
QO 
QO 
QO 
CON 
OO 
AON 


AAAIAMAOAIMAIAIMAOAAAOOY 
POAIAAMQIAIMAIAAMAOMAL 
AAAOAAIMOAIAIMAAAIOANY 


AAAAAAAAA 

AAAAAAAAA 

AAAAAAAAA 
AAA AAA 
AAA ABA 
AAA Aad 
AAA AAA 
Aah AAA 
AAA AAA 
ABA ABA 
AAA AAA 
AAA AAA 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAA AAA 
AMA ADB 
ALA AAA 
AAA AAA 
AAA AAA 
ABA AAA 


LLL 

LLLLLLLLLLLLLLL 
LELLLLLLLLLLLLL 
LLLLLLLLLLLLLLL 
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-- 
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= oooooooo°oo 
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oo 
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oooooooooo 
ooooocoe0o0eeo 
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a. NnNNM nn AnNM 
ee aw nw “nn nw nw 
nn nn Abd —s Sa aa 
“an “vn “vw ae 34 aa 
ann nn nw ted pte | aa 
“nn nn nn =e AA aa 
"ne aan nw nw nw ww 
nnnw nn YnNw nn 
ANAM nn mane 


222222222222 


— we 
ceeaee os 
Oe ys ae at ae a at ns nw Od 
tt at ns ad at a ad og a Oe ed 
=o ~~ 
pie Sa ee 

222222222222 
aaaa —4 
aaaa 33 
aa a = 
ee a 33 
oa aa 33 
oa oa 7 
a ao 33 
we a Seaaa an 33 
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s esnaneennonenesosenddeneqnetecenennnensseesateonneseenusesesnsoonceceseneces 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED 


THIS SOFTWARE ss wluite UNDER A LICENSE AND MAY BE USED AND corres 
oY i ena NCE WITH THE TERMS OF SUCH Tints AND WITH THE 


;@ 2 
* 
® a 
® oa 
@ co 
® e 
% rs 
:*® INCLU T 0 T E . 
* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
;* TRANSFERRED. * 
oo rs 
* © 
** 2 
** w 
-* ze 
** * 
*® ea 
** ® 
-* 2 
** 


; THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTIC 
: SHOULD NOT 


oooo 


SoOoooooooooooooocoo 


E 
AN BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


pe fe wm ole wel o lal wl ola lol ole ol oleolololola) 


SoOooooooo 
Sooooooooo 


(ARARRAAAAAALASALALALALE SALES EAA SESE LEE ERE EERE RRR R RRR EEE EERE EEE EERE REESE S | 


-TITLE PAS$IO BASIC ; PASCAL RMS Linkage 
cident 'v04-000' 


=MPARAAARARRAAARAASAARARELALASLAASERESE SELES ERE ERR REE RARER RE EERE ERE R EEE ES 
—MAAAARRAARAARALAAA SALAS ALAASE SAREE LESE SESE RE SARA EAR EEE EERE RR RRR E RSLS ES 


ee 

ee PASCAL RMS LINKAGE FOR VAX-11/780 “ 
0000 ee Sesessssessssssesssseesesesese222s2= at 
0000 ** we 
0000 ve wa 
0000 ee VERSION V1.2 == JANUARY 1981 el 
0000 aR tt 
0000 ** DEVELOPED BY: COMPUTER tit DEPARTMENT oe 
0000 ee UNIVERSITY OF wash INGTON of 
0000 ee SEATILE, WA 9819 +t 
0000 ae et 
0000 - AUTHORS: MARK BAILEY, JOHN CHAN, HELLMUT GOLDE vos 


MARARAARARARAAAASAAS AREA EASA LER ESE SESE SRS E SERRE S ERA EERE EERE SERRE ARR E SS OY 
=MARRBARARAARAAARASLALASALAASASASASE SESE EA SLES ERE R ESSE EERE RE RE RSE SERRA RRS SS 


History : 


1. Change PASSIOERROR to signal all errors with LIBSSTOP 
instead gt putting messages directly 
10-JUN-80 S. Aziber 


- Change routines PASSINPUT and PASSOUTPUT to use the filenames é 
SYSSINPUT and SYSSOUTPUT, if PASSINPUT and PASSOUTPUT are not defined. 


3. Change the definition of PRN_CRLF so that on a terminal, a Line 
of output looks Like: 


Oooooooo 
oooooooo 
oooooooo 
Soooooooo 
PVP PVPS BB BB BBE EE ANA AAI INI I RPO NIPINIPUNINIDY 2 2 OO OS OO 


NO AEWA SO OOD NA UNE WIN © O08 NAN E WIN OOD NAME WIN @ O OO NOAU ES LP OOODVOUN ES wo 


SOOQCooooooooooooo 


SOOOoOOoOOoOooCoOoooooooo 


SOooOooOooooooooooo 
SOoOoooooooooooosoSo 


“SEP- PASCAL.SRCJPASIO1.MAR; 1 
<LF> <text> <CR> 


4. Fix a bug introduced into PASSINPUT and PASS$OUTPUT. 
STRNLOG_S returns one of two successful values, 
whereas the code was checking for an error return. 


5. Paul Hohensee 13-Jan-81 
coange all tests of status returns from RMS to BLBC RO, Label 
or BLBS RO,label instead of CMPL RO,#RMSSNORMAL;BNEQ Label, etc. 


6. Add a flag (PROMPT_FLAG) so that carriage control on 
prompting can be done correctly. S. Azibert 15-Jan-81 


7. Deallocate record buffer after a file is closed (PASS$CLOSE) 
Record buffer is pbb gs allocated by LIBSGET_VM, but the 
space is never released. Ditto file name string (assuming 
it was allocated by LIBSGET_VM (not in static storage). | 

| 
| 
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FUN" OOONO US wir 


Paul Hohensee 


NSS SSS SSCS SS 


: 8. Eliminate call to PASSFILENAME for PASSINITFILES. It does not 
78; seem to be peconasey since all file names passed to 
: PASSINITFILES are allo 
and therefore do not need PASSFILENAME's services. 


: cated in static, read/only storage, 
81; Also, since bugfix number 7 above deallocates the file name 


SOOO OCoOOCoOoCoOoOOooooooo 
SoOCoOooOoOoCooooooooooo 


orn as well as the record buffer, multiple opens on the 
same Tile in the same block would not work (they would 
fail in RMS due to a bad file name) if space for the 
file name string were allocated by LIBSGET_VM. 

Paul Hohensee 4/6/81 


9. Fix PASSREWRITE to do a rewind on an enpty file, rather then a truncate. 
() 


Pau hensee 19-Jul- 


10. Fix PASSOPEN to request mere access te ioc iae'e files. 
y access to . 


Fix PASSINPUT to request read-on 
11. Change references to external routines to general addressing. 


12. Use NAMSC_BLN_V2 since compiler was built with VMS V2. 
Steven Lionel 25-0ct-1981 


13. Change PASSOPEN so that it no Longer scans leading and trailing blanks 
from the filename. V2 VMS does this for us. We had been deallocating 


less space than was originally allocated because of the blanks. 
Joyce Spencer 10-Oct-1981 


es SECTION 1 we 
ee BASIC PROCEDURES el 


a a a ns 8 et tt et 


PARRA ARAAAAAARAAAARAASARALALAALALASLELARAEEEEAR RRS ARR EASA SAAR RAS SD SO 
ARAB RARAARARARASARASARAALALASESAREERRSE SESE ARERR SEAR EERE E RR RAS SES SS 


SOOOCOOCOSOCOSOCOCOOSOSCOSCOSSSSOSSSCOSSCOSOOOOOCOOOSOOOOOO OOOO OOOOOOOOO 


SOOOoOCoOOCSOOSOSOOSOSOOOSOSOSOSOOOSOSOSOOSOSOSOOOOOOOOOSOOoOoOO 


SOOOCOOSOSOOSOOOSOSOSOSOOOOSOOOOSSOSOSOSOSOSSS 
SOOSCOOSOSOOOSOOSOSOOOOSOOSOOOOOSOSOoOSOSSoOSoSo 


rare AR BASIC ; PASCAL RMS Linkage = a i tet 6 95:05:19 AX/VMS Ma 


be 
Seow lone cro yy 00 Page 


r 
PASCAL.SRCJPASIO1.MAR; 1 


-GLOBL PASSBLANK_R3 
: Provide definitions of system values 


device definitions 


SDEVDEF 
STRNLOGDEF 
$F ABDEF 
SFORDEF 3; FORTRAN error definitions 
SRABDEF 


116 : For any file variable the following storage is assumed: 
118 : Se rere Da Berne eam ee = 
1} ; FSB: } POINTER } 
; { $TATUS WORD; 
103 ; A 
1 4 b- sae nmea a LAST a2 eo em ce me me em 
: ; 5 ; : LINELIMIT ; 
99 ; {____LINECOUNT | 
000 129: { RECORD NUMBER } 
00 130 5 ee ae 
800132: me: | amen eves 
000 1 : : . 
000 134; ° 
ae : : 
RB a | a, 
000 1 5 : ; 
331 eae 
000 142; ———— oo 
44 128 3 NAM: : H NOTE: The NAM block is allocated 
000 144; 38(HEX) BYTES for the PASCAL logical files 
000 145; : ‘ : *INPUT® and ‘OUTPUT’ only. 
44 196 3 . 
000 148 
0000 149 : 
94 139 ; Macro options 
49 13 : -DSABL GBL 3; no undefined references 
4 137 : -ENABL FPT 3 rounded arithmetic 
099 132 : External references 
000 133 ; .EXTRN LIBSGET_VM 
00 158 -EXTRN LIBSFREE_VM 
4 159 -EXTRN LIBSSTOP ; program abort | 
160 eEXTRN PASSC_DFLTLINLI 3; default Linelimit 
100 19] eEXTRN PASS$_ERRACCFIL ; PASCAL error message #8304 
188 
164 
3 
i 
i 
iF 
172 


j 
eee eee 


; PASCAL RMS Linkage 


0 
0 
0 
0 
0 
0 
0 
000 
0 
0 
0 


00000101 
09900000 
0000000 
0000000 


880008 
0000000 


00008001 
00000000 
00000001 
00008000 


0000000A 


0000000C 
0000005 


AX/VMS Macro V04-00 
PASCAL. SRCJPASIO1.MAR; 1 


; for status code checking 
; status codes 
; for system services return codes 


PASCAL compiler constants 

NOTE: The constants below with the names ‘PASSC_XXXXX' are 
used in the PASCAL compiler with the names ‘XXXRX'. If the 
values in the compiler are altered then 
must be altered accordingly. 


Passe PUL TREES! = 257 
PASSC_NIL = 


the below values 


lt buffer size 
ointer 


no carriage control 
FORTRAN carriage control 
; LIST carriage control 

; PRN carriage control 


PRN carriage control constants 
PRN_CRLF = “X8D01 
PRN_NULL = *x0000 
PRN_LF = “x0001 
PRN_CR = *x8D00 


carriage control constant 
<LF> <text> <CR> 

carriage control constant 
no carriage control 
carriage control constant 
<LF> <prompt> 

carriage control constant 


File status block constants 


last access gas READLN 
direct access flag 


internal flag 
proapt flag 
UTPUT file flag 


preset flag ; 
RITELN is being called to do prompting 
p 


included file fla 
carriage control 


RIMM PMPINININININD 2 9 9 | | “DOO QDOGDOOCOCOCOOOOO0O0OOOWWWW WWMM VN 
DWONAUE WIN @§ OOD NAME WIN 9 ONAN EWN OS OO NAME WN OOO NA UNE WO OONOUSW 


PRIPIPIPIPNPINPYPINYPOPYNINYNININININININININPININININININID) 2 9 9 9 9 Se 


SOOooooooooooooooooooooooeoocooo 


SoOoQoooooooooo 


M12 
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0; FSBSM_PRMT = *x020 
00000080 1 FSBSM_PUT = any § S080 
¢ 3 FSBSM_TXT = *x001 
00000001 FSBSM_ROLN = *x0001 
4; FSBSM_DIR = ony 0 3048 
5 3 FSBSM_INT = *x000 490 
00040 $ FSBSM_OUTPUT = “*x040 
0 FSBSM_ACTIN = “x0 6 
1 : FSBSM_INPUT = *X1 8 
0¢ 99 FSBSM-PROMPT = *x2000 
£000 0 a} F SBSMCDELL © -x40000000 
= 
89 8 8 8 tg FSBSM_INC = =x 0009009 
0000010 0000 4 FSBSL_CNT = 16 ; Line count (textfiles) 
000 44 ; FSBSL_INC = 20 ; INCLUDE block address 
00000 f 44 45 FSBSL_LIM = 12 : Linelimit 
0000000 00 46 FSBSL_LST = 8 ; last word offset 
00000014 0000 4 FSBSL_PFSB = 2 ; Related file FSB for prone ing 
44 $8 : for INPUT, has address of OUTPUT FSB 
000 24 : for OUTPUT, has address of INPUT FSB 
0000 50 ; (shares storage with include address 
0000 51 ; and direct access rec buf address) 
00000014 0000 26 FSBSL_REC = 20 ; record buffer address for 
0000 5 3; direct access (shares storage 
0000 54 3 with include address and related 
0000 55 3; file FSB) 
00000004 44 38 FSBSL_STA = 4 3; status word offset 
0000 58 ; Character constants 
0000 59 ; 
00000009 0000 60 TAB = *x09 
00000020 0000 61 SPACE = *x20 
44 6¢ ; DOLLAR = *X24 
000 63 ; FORMFEED = “XC 
0000 64; STAR = *X2A 
0000 65 ; PLUS = “X2B 
0000 66 ; MINUS = *X2D 
0000 67 ; POINT = “X2E 
0000 68 ; ZERO = “x30 
0000 9; ONE = “X31 
0000 0; NINE = “X39 
0000 71; AA: “41 
0000 72 3 DD +» "144 
sit 73; EE . “#5 
74; ZZ = *X5A 
000 75; UNDERSCORE = “XSF 
00000061 0000 76 AA_SMALL = “X61 
0000007A 0000 77 ZZ_SMALL = “X7A 
000 oe ; 
000 79 ;: 
00009 00 0 -PSECT _PASSCODE, PIC, EXE,SHR,NOWRT 
000 ¢ : Ree eeeeeeereeeeee 
0 : e x 
0 4; * PASSREADCK + 
000 5 ° * ea 
000 86 ; eteetererererrereeet 


PAS$IO_BASIC 
v022090 


00000004 

004 

56 04 ag D 

0B 04 A6 =O E1 
00000921 "EF ef FA 
16 50 Fe 


7E 8334 BF 3C 

7E 0090 C6 9A 
0088 C6 «DD 
QOOOOOES*EF 03 FB 
0001827A 8F ODD 

7E 0090 C6 9A 
0088 C6 «DD 
QOOOOOES*EF O03 FB 
00000004 

0040 

56 04 AC 00 

0104 A6 O07 €1 

04 


7E 8344 8F C 
7E tt 6 A 


6 fe DD 
O0O0000E4" ae 0 FB 


OOoooooooooo 


DNNMS OBO 99 OO Ni a a I SS BO WWD WD LODO OOOO MID DIAWVOCOOCOCCOO 
oo 


OOOOCOCOOOCoOoO 


COOCCOCCOCOCOOOCOCOOOOOOoOOoOoOoSoOo 


DINE BEEP BEEP EEE EEE EEE WWIAIDININPINIDINYY) 2 


WALA AIA AAI AN AAI NIAIWIIinonononononononononononony) 


OOO OCOOOOCOOoO 


WN OC OONAUE WN 0 OO NAULS WN O OONOAUS WR" OOONOUSWR—O 


SOOoOooQoooooooooooooooooooooCooooooooooooCoooOooooO 


SOOCSCSCSOSOSOSOOSOOSOSOOOOOOSCOOOOOSOSOSoOO 


BHF EWWINWINIWIWNIWIWIWIIPIRINININPINININININ 2 2 Se 


A.NWNAN NIAAA NI ANNAN AAA ANNANANA AANA 


; PASCAL RMS Linkage Ig-SEP- 


7 
a 


; Argument offsets 


AP 
FSB_DISP = 04 


.ENTRY PASSREADOK, “M<R6> 
MOVL  FSB_DISP(AP) 


Bc 08:80:06 ERASCAL.SREIPASIOT. 


; number of Pt” aaa (1) 
; address of 


;_R6 = address of FSB 


R6 
BBC #F SBSV_GET,FSBSL_STA(R6) .910$ 


CALLG (AP) ,PASSEOF 
) RO 


9208 


; Read access not allowed 


$: 
MOVZWL #*X8334,-(SP) 


3 read access allowed? 
; read past EOF? 


MOVZBL <FSB$C_BLN+RABSC_BLN+FABSB_FNS>(R6) ,-(SP) 
PUSHL <FSB$C~BLN+RABSC_BLN+F ABSL ~FNA>(R6) 


L 
CALLS 4#3,PASSIOERROR 


: Read past end-of-file 
* 9208: 


PUSHL #RMS$ 


MOVZBL erepste OBLN+RABSC _BLN+F ABS$B_FNS>(R6) ,-(SP) 
PUSHL <FSB$C"~BLN+RABS$C_BLN+FABSL_FNA>(R6) 


CALLS #3,PASSIOERROR 


.PSECT _PASSCODE, 


tARRASASAALASALALALAS GS | 
® * 
* PASSWRITEOK * 
tt +d 
pRARRASASLALALALALAES SE I 


Argument offsets 


AP: 
FSB_DISP = 04 


~ ENTRY sw yt hie “M<R6> 
MOVL FSB_DISP(AP 


R6 
BBC #F SBSV_PUT,FSBSL_STA(R6), 9108 


RET 


; WRITE access not allowed 


PIC, EXE,SHR,NOWRT 


3; number of arguments (1) 
; FSB address 


R6 = address of FSB 
WRITE access allowed? 


910$: 
MOVZWL #*X8344,-(SP) 
MOVZBL <FSB$C_BLN+RABSC_BLN+FABSB_FNS>(R6) ,-(SP) 
PUSHL <FSBS$C~BLN+RABSC BLN+F ABSL~FNA>(R6) 


CALLS #3,PASSIOERROR 


<v 


.——_——————_ —- — —— -——- —- rrr a — 


| 
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oOo 
So 
o 
So 
Oooo 


-PSECT _PASSCODE, PIC,EXE,SHR,NOWRT 


eerreerrrrererrrreee 


* > 
* PASSBUFFEROVER * 
. « 


eeeeerererrerereeeese 


Argument offsets 


number of arguments (1) 
FSB address 


AP 

FSB_DISP = 04 

-ENTRY PASSBUFFEROVER, “M<R6> 
MOVL FSB _DISP( 


aR 

MOVZWL <FSB$C_BLN*RABSW_USZ>(R6S , 
$ — buffer size 

MOVZWL #*xX8384 error number 

MOVZBL <FSBS$C *BLNSRABSC _BLN+FABSB” FNS>(R6) =< SP) 

PUSHL <FSB$C~BLN+RABSC_BLN+F ABSL_FNA>(R6) 

CALLS #4,PASSIOERROR 


00000004 


56 ©6046 AC 0 
7E 38 A6 C 


7E 8384 BF 3C 
7E 0090 C6 9A 


0088 Cé 
OOOOOOES*EF 04 FB 


R6 = address of FSB 
SP) 


COOOCCOCOCOOCOOCOCOOCOOCOOOOOOoOO 
SNA AA AAA AAA AAA AA A AAAAO 


SW tt tt DO 09 OD FPP PIPPOPIPINPOPOPPPONUPTYD 


WWAANAAAANNAA AAA NAAAAAAANI 


oS 
Oo 
e 
Oo 
pole lelelelelelelelelelelelelelelelelolalola) 
5© 09 0009 09 69 09 09 69 9 C0 INI NN SN NN SIO ODA A AAO TUTTI BS BS 


OSOONAUES WN OS OONAU EWN 9 OD NAME WW OOO NAU EWR OWOONOUSE 
. 


08 ; 
08 : 
vecnag -PSECT _PASSCODE, PIC,EXE,SHR,NOWRT 
008 : eeetrererrrerreetene 
008 se 3 * * 
008 ; *  PASSFILENAME * 
008 $ * * 
008 3 keteeereerrererereee 
008 : 
44 ; Argument offsets 
008 ary 3 AP ; number of arguments (2) 
00000004 008 3 LEN_DISP = 04 : address of string length 
00000008 $44 ; STR_DISP = 08 ; address of string 
038C 008 3 -ENTRY PASSFILENAME ,“M<R2,R3,R4,R5,R7,R8,RI> 
57 048C 9A 0083 3 MOVZBL @LEN_DISP(APS ,R7 : R? ="string Length 
58 08 BC 00 008 3 OVL @STR_DISPC(AP) ,R8 3 = string address 
5E 08 C2 0088 SUBL2 #8, : ~*e room for string address 
BORE ; and string Length 
59 SE 00 00 ‘ MOVL SP,R9 ; save address 
59 dd 009 PUSHL R9 
04 AE 57 dO 0093 MOVL R7,4(SP) 
04 AE DF 0097 391 PUSHAL 4(5P) 
00000000'GF 02 FB OO09A 9 CALLS #2,G*LIBSGET_VM 
59 69 00 O0OAl 39 MOVL R9) RO 
69 68 57 28 O0AG 39% MOVC3 7, (RB), (R9) 
58 59 »d0 ae i MOVL R9,RB 
04 BC 2 90 QOAB 39 MOVB = =R7,@LEN_DISP(AP) ; store new length 
08 BC 8 D0 OQOAF 98 MOVL 8,aSTR_DISP(AP) ; store new string address 
ts Th oe 
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44 401 ; 
0000 $e : ¢ -PSECT _PASSCODE, PIC,EXE,SHR,NOWRT 
0B4 404 : Reeeeeeeeeeeeeeerente 
0B4 405; * * 
0B4 $38 3 * PASSSTATUSUPDAT * 
0B4 407 ; ” * 
0B4 408 $ eeeeeeerererereeeeee 
0B4 409; 
0B4 410 ; Updates the FSB status word based upon the current position of the file 
0084 411 ; pointer. If the pointer is greater than the last position (FSB$L_LST) 
0B4 tig ; then RDLN is set true and EOF is checked. If the pointer is equal to 
bee At ; last then EOLN is set true. Otherwise EOLN and RDLN are left false. 
00B4 415 ; Argument offsets 
0B4 416; 
0B4 417 ; AP ; number of arguments (1) 
00000004 Boo rt FSB_DISP = 04 ; FSB address 
0040 0084 420 ENTRY PASSSTATUSUPDAT, “M<R6> 
56 04 AC DO OQO0B6 421 MOVL FSB_DISPC(AP) ,R6 ; R6 = address of FSB 
04 A6 00000800 BF CA OQOBA 4 ¢ BICL2 #F SBSM_ACTIN, FSBSL_STA(R6) . 
00C 4 ; clear actual input flag 
08 A6 66 = D1 O00C 424 CMPL (R6),FSBSL_LST(R6) 
17 19 Q0C6 425 BLSS 130$ ; middle of Line 
10 13 454 +38 BEQL 120$ : end of Line 
ape $58 ; Passed end-of-Lline, clear EOLN and set RDLN 
04 A6 04 CA .OOCA 1% BICL2 #FSBSM_EOLN,FSBSL_STA(R6) 
04 A601 C8 OOCE 431 BISL2 #FSBSM_RDLN,FSB$L_STA(R6) 
02 04 A6 =«2(01Cé€E* Bede $38 BBC #FSBSV_EOF ,FSBSL_STA(R6),110$ : 
66 D4 OOD 43 CLRL (R6) ; EOF, clear pointer 
0009 434 1108: 
04 0009 435 RET 
QODA 436 ; : 
OODA 437 ; End-of-Line, set EOLN flag 
OODA 438; 
OODA 439 # 1208: 
04 A6 04 CB OODA 440 BISL2 #FSBSM_EOLN,FSBSL_STA(R6) 
04 QODE 441 RET 
OODF 226 : 
OODF 443 ; Middle of Line 
ODF 444 ; 
ODF 445 1308: 
04 A6 04 (CA OQODF 446 BICL2 #FSBSM_EOLN,FSBSL_STA(R6) 
Boes 447 ; make sure EOLN clear 
04 OOE 448 RET 
QOES 449; 
Q00E4 450 ; 
O00000E4 451 -PSECT _PASSCODE, PIC, EXE,SHR,NOWRT 
QO0E4 452; 
0E4 453; eeeerererereeeereres 
OE4 454 + ® a 
OE4 455; *  PASSIOERROR * 
0E4 456 3 * ® 
0E4 457; Retetererererererere 


PASS BASIC ; PASCAL RMS Linkage 
v02-090 . 
OE4 $38 ; 
BES 459 ; 
ES 460; 
pee 461 ; 
00000004 £4 46 
00000008 O0E4 46 
OES 464; 
0OE4 465 
OES re ; 
OE4 467 ; 
OES 468; 
Bee r¢ : 
OOFC E46 470 
55 64 +34 471 
4 AC DD OOE rh 
08 AC 43 QOOEB 47 
= = eas OoeS 474 
aa." = * <a oor 475 
54 E DO OOF6 $78 
OOF9 477 1108: 
57 04 CO OOF9 478 
OOFC 479 1118: 
57 04 C0 pore 480 
00009000 8F 67 ~»OD1 OFF 481 
43° 18 0106 re 
00008374 8F 67 Di 0108 48 
09 13° «O10F 484 
00008384 8F 67 D1 111 485 
1B 12 118 486 
O11A 487 112$: 
7E 67 00210000 8F C1 O11A 488 
03 OD b1se 489 
04 A7 DD 0124 490 
00 DD 0127 491 
00 DD B58 49 
55 05 cO 0128 49 
56 07 818 494 
C6 56 «6 FS COD 495 
20 11 01 496 
0135 497 115$: 
7E 67 00210000 8F C1 0135 498 
03 DD 0130 495 
OMe Ole) 808 
55 08 cp 143 303 
B3 56 «OF 146 50 
OA 11 14 504 
148 505 130$: 
67 OD 148 ane 
0 DD 0140 50 
55 CO O14F 08 
A7 56 oF 5 138 09 
15 10 1408: 
Ha 
138348 
155 514; 


D 13 


"$oSEp=198« 


* aces »“M<R2,R3,R4 


FNM_DISP(AP) 
FNL <DISPCAP) 
ue. TaP) 

#G"A AP RPS 
P’R4 


’ 


#4,R7 


#4,R7 

(), #*x9000 

(R7) ,#*°X8374 

128 

(R7) ,#*°X8384 

115$ 

#°X210000, (R7) ,~(SP) 
4(R7) 

# 


#*X210000, (R7) ,-(SP) 
#3 


#0 
=(SP) 


#5,R5 
R6,1118 
146$ 


(R7) 
8 


#2,R5 
R6,111$ 


03:38:04 


AX/VMS Macro v04 
PASCAL.S REIP ASI01 


number of arguments (variable) 
file name string address 

file name string length 

an indefinite number of error 
code may follow 


»R5,R6,R7> 


. 
@ 
io 

ou 


: number of error Spo 
; R? = address of arguments 
; the top of the stack address 


. 

w 
Y 
< 
e 


; update address for special codes 


; update address for non-special codes 
; test if RMS error 


; test for Line Limit exceeded 

; test for Line length exceeded 

; buffer overflow and Linelimit 

; store error number, 

; store count of bw arguments 

; first FAO orgyne 

; second and t ird FAO arguments are 0 
3; count number of arguments pushed 


: loop if more arguments 


; store error number for all other I/0 error 


; push FAO count of arguments 
3; store three nuil arguments 


3; count number of orquente stored 
; loop if more arguments 


store RMS error number 

store null argument 

count items pushed on the stack 
loop if more arguments 


: This section of code reverses the order of the arguments to Lib$stop 


3 one are already on the stack. 
alled. 


Then the error ERRACCFIL is pushed Cd LIBSSTOP 


300 Page 9 
MAR; 1 (1) 
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1 15 
1 16 ; 
5 —E 00 3 i$ MOVL SP,R3 ; save the address of the top of the stack 
3 3f DO 0158 18 1$ MOVL =(R4) ,R2 3 move the first item from bottom of the stack 
é3 Di 0158 19 CMPL R4,R3 ; have all the items been switched? 
1F 15 0 BLSSU 2$ 3; done : all items are switched 
64 g dO 16 1 MOVL (R3) ,4R4) 3 switch two items 
Be DO 016 : MOVL R2,(R3)+ ; 
F 11 016 BRB 1$ 
B18 2 4 28: 
00 bp 16 5 PUSHL #0 3; store FAO arguments for ERRACCFIL 
7E «=6FB Ap D 81o8 2 § MOVQ “-B(FP),-(SP) ; push name of file being accessed 
0 DD 01 PUSH # ; store count of FAO arguments 
7E 00000000'8F 04 (1 O17 528 ADDL3 #4, #PAS$_ERRACCFIL,-(SP) ; store error message number 
92 cO 017 529 ADDL2 ° ; count number of arguments stored 
00000000 ' GF 5 FB 8128 239 CALLS R5,G*LIBSSTOP =; signal errors and stop 
$185 23 ; 
weey 237 -PSECT _PASSCODE, PIC,EXE,SHR,NOWRT 
018 535 : TRSALSALAATAAE LALA 
018 536 ; * * 
018 537 ; *  PASSBLANK_R3 * 
018 538 ; * * 
0182 539 3 Reeeeeeeeeererereees 
O18s 540 ; , 
018 541 ; A JSB routine which skips leading blanks on a file. It requires 
0182 2¢§ ; that R2 contain the FSB address. THe following values are returned 
O12 ei ; in the designated registers. 
018 545 ; RO: number of bytes in the Line after the skip 
018 546 ; Ri: address of the byte located 
018 547 ; R2: address of the FSB (input) 
018 548 ; 
0182 549 PAS$SBLANK_R3 
b185 550 1108: 
52. DD 018 551 PUSHL R2 
FE77 CF 01 FB 0184 226 CALLS #1,PASSREADOK :; check read ok and EOF 
62 00 0189 55 MOVL (R2),R ; R1 = current buffer pestsion 
50 O08 A2 51 C 018¢ 334 can SUBL3 R1, FSBSL_LST(R2),RO > RO = remaining Line Length 
61 50 ¢° 38 191 556 SKPC #SPACE,RO,(R1) ; skip blanks ; 
0 v5 0195 557 TSTL RO 3; test for end-of-Line 
11. 13 0197 228 BEQL 130$ 
ss 3 4 199 5 MOVL RO,R3 
61 50 9? 19¢ 560 SKPC #TAB,RO,(R1) 3; skip tabs : 
0 05 1m 561 TSTL R 3 test for end-of-Lline 
06 13 OA 286 BEQL 130$ ; 
53 50 D1 OQO1A4 22 CMPL RO,R3 ; skipped any tabs? 
E8 if 1A7 564 BNEQ =: 12068 
0 1A9 «45565 RSB 
1AA 206 130$: 
04 A2 01 CB OIAA 56 BISL2 #FSBSM_RDLN,FSBSL_STA(R2) 
1AE o8 3; force next Line 
D2 11 OA § BRB 1108 
18 0; 
18 71 : 


-o 
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oe 


0000 18 4 -PSECT _PASSCODE, PIC, EXE,SHR,NOWRT 
18 74 : eeeeeerererrererrree 
18 73 8 * 
18 76; w PASSINPUT * 
18 77 ; . a 
1B 4 : eeereereerererrrrere 
1B ; 
+ ? ; Initializes, opens, and resets the standard file INPUT. 
18 ¢ ; Argument offsets 
iB 2 4 ; AP b f (1) 
3 ; number of arguments 
00000004 9180 g FSB_DISP = 04 : FSB address ~ 
180 : ; Constants 
180 588; 
9 00009 189 : 9 INPUTLEN = 9 
54 55 50 4E 49 $e 41 ° 1B 90 PASINPUT: eASCII /PASSINPUT/ 
54 55 50 4E 49 26 53 59 53 0189 591 SYSINPUT: ASCII /SYSSINPUT/ 
00000009 01C2 236 PASDESCR: “LONG INPUTLEN 3 create a descriptor for PASSINPUT 
00000180" wee 37 -LONG PASINPUT 
003C OICA 595 -ENTRY PASSINPUT,“*M<R2,R3,R4,R5> 
O1CC 596; 
01CC 597 ; Initialize 
Bite 598 : 
SE 3F C2 O1CC 599 SUBL2 #63,SP ; clear 63 bytes on the stack 
SE OD OCF 600 PUSHL SP 3; create a descriptor for RSLBUF 
3F DD 0101 601 PUSHL 363 
54 SE 00 0103 ret MOVL SP,R4 3 save the address of the descriptor 
55 04 AC DO 0106 60 MOVL FSB DISPC(AP) RS ; RS = address of FS 
00000101 8F DD ODA 604 PUSHL gr Asse “DFLTRECSI ; maximum buffer Length 
01 DD O1FO0 605 PUSHL 3 textfile 
00 DD O1E2 606 PUSHL +0 ; external file 
09 DD O1E4 607 PUSHL #INPUTLEN rot ut none “re Length 
Hs 608 STRNLOG_S LOGNAM=PASDESCR, RSLB F= ry to translate PASSINPUT | 
00000629 8F 50 D1 OFA 609 CMPL “~RO,#SS$_NOTRAN ; on ead 
05 13 0201 610 BEQL. si > use FOr 
AA AF OF 03 611 PUSHAL PASINPUT 3 tho og te PASSINPUT 
03 =1i1 06 ol¢ BR $ 
AE AF OF 08 6135 1$: PUSHAL ersten 
55 DD 0208 614 2$: PUSHL ; FSB address 
OOOOO37C°EF 06 FB 6 90 oi? CALLS ie. PASSINITFILES 
8 1 617 ; Fix up RAB, FAB, and NAM blocks 
52. 55 18 Ci 0214 619 ADDL #FSBSC_BLN,RS.R J Re = address of RAB 
53 36 aaisaiees Pt, Se 1 620 ADDL #RABSC~BLN.R *R ; R3 = address of FAB 
54. (5 we Fi. ey 621 ADDL #FABSC_BLN,R ; R4 = address of NAM 
28 A 4 b0 6 ‘ MOVL  R4,FABSL_NAM(R3) ; NAM block address 
64 9 9 C 6 MOVB #NAMSC BID, NAM$B_BID(R4); block identification 
01 AG 90 F 6 é MOVB  #NAMSC"BLN.V2,NAM$B_BLN(R4); block Length 
? § 3; Open file 
04 AS 80000000 8F (C8 628 BISL2 M#FSBSM_INC,FSBSL_STA(RS); Fake INCLUDE'd file to get 


<v 


i 


; 
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B 629 3; read-only access 
0 oD B 630 PUSHL #PASSC_NOCARR 3 carriage control == not used 
00000101 8F bp 631 PUSHL #PASSC_DFLTRECSI 
E C & 6 § CLRO -(SP) 
7 7¢ 4 6 CLRD (SP) 
DD 4 634 PUSHL 5 
o9000 srs F FB 49 635 CALL #7, PASSOPEN 
04 A 0000000 8F CA 2 2 § BICL #F SBSM_INC,FSBSL_STA(RS); Unfake INCLUDE'd file 
5 638 ; Reset file 
5s > 0888 geo” PUSHL RS 
00000638'EF 01 FB af 641 CALL #1,PASSRESET 
04 AS 00001000 8F 8 6 61 646 BISL2 #FSBSM_INPUT,FSBSL_STA(RS) 
69 364 3; set input flag 
04 0269 644 RET 
026A 645; 
026A 646 
rig on ot -PSECT _PASSCODE PIC, EXE,SHR,NOWRT 
026A 649 ; eeeereereereereeeeee 
026A 650 ; * * 
026A 651 ; * PASSOUTPUT * 
026A 636 § * * 
026A 65 : PRSALALALL CASE aa a 
026A 654; 
8 oA 023 3; Initializes, creates, and rewrites the standard file OUTPUT. 
056A 657 ; Argument offsets 
026A 658 ; 
026A 659; AP 3; number of arguments (2) | 
00000004 026A 669 FSB_DISP = 04 ; address of OUTPUT FSB 
00000008 8 7 $82 INP_DISP = 08 ; address of INPUT FSB 
036A $0 3; Constants 
026A 664 ; | 
99090004 agen 665 OUTPUTLEN = 10 
54 55 50 54 55 4F $ 59 53 6A 666 SYSOUTPUT: ASCII /SYSSOUTPUT/ ; changed from PASSOUTPUT for V1.2 | 
54 55 50 54 55 4% 246 53 41 50 0274 667 PASOUTPUT: eASCII /PASSOUTPUT/ 
0000000A 8 43 668 OUTDESCR: -LONG OUTPUTLEN 
00000274' 9 ge 66 »LONG PASOUTPUT 
O1FC ogee 14 sENTRY PASSOUTPUT,“M<R2,R3,R4,R5,R6,R7,R8> 
0988 $76 : Initialize file 
0 3 674 ; 
SE 3F C2 0288 675 SUBL2 #63,SP ; put a 63 byte buffer on the stack 
5E DD 0288 676 PUSHL SP 3 create the descriptor for RSLBUF | 
z DD 0 Hi 67 PUSHL #63 ; 
52 —E 00 F 978 MOVL SP,R2 3 save the address of the descriptor 
56 04 AC DO 0292 67 MOVL_ FSB _DISP(AP),R6 - R6 = address of OUTPUT FSB 
57 56 0000005C 8F C1 0296 680 ADDL3 #<FSB$C_BLN+RABSC_BLN>,R6,R 
9E 681 ; R7 = address of OUTPUT FAB 
58 «57 0000050 er C1 % ¢ ¢ ADDL3 #FABSC_BLN,R7,R8 ; R8 = NAM block address 
0000101 8F ODD 02A6 6 PUSHL #PASSC_DFLTRECS! ; maximum record size 
01 DD AC oat PUSHL #1 ; textfile — 
00 oD AE 685 PUSHL #0 3: external file 
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OA ODD B $ $ PUSHL  #OUTPUTLEN UPetad name string Length 
& STRNLOG_S LOGNAM=OUTDESCR, kstau =(Re) ; try to translate PASSOUTPU. 
00000629 8F 3 » C 6 8 CMPL “RO,#SS$_NOTRAN on 
05 1 CD 66 BEQL : Use SYSSOUTP 
A2 Os of cf 44 ot PASOUTPUT : otherwise, = PASSOUTPUT 
93 AF OF D4 $36 1$ PUSHAL SYSOUTPUT ; output name string address 
56 DD D7 693 2$ PUSHL ; FSB address 
OOOOO37C*EF 06 FB 4 o3e CALLS #6,PASSINITFILES 
EO $36 3 : Create file 
3 697 ; 
28 A7 58 00 E 4 MOVL R8, come L_NAM(R7) Link NAM block 
68 38 O00 68 00 e2 8 E4 $2 MOVCS #0,(R8),70, ONARSC BLN, v2 (RB) 
EA 00 ; clear NAM block 
68 0 90 O2EA 701 MOVB #NAMSC_BID,NAMSB_BID(R8) 
01 A8& 90 O2ED ie OvB SUARSE BLN "V2, NARS. BLN(R8) 
02 DD O2F1 70 PUSHL AS$C_LIST ; carriage control 
00000103 8F DD O2F3 704 PUSHL #PASSC-DFLTRECSI42 ; record Length (allow 2 bytes for 
O2F9 705 ; PRN carriage control buffer) 
7E 7C O2F9 706 CLRD -(SP) 
7E 7C O2FB 707 CLRD -(SP) 
56 DD O2FD 708 PUSHL R6 ; FSB address 
00000486 ‘EF 07 FB O2FF 709 CALLS #7,PASSCREATE 
3C A6 02 CO 0306 710 ADDL2 #2,FSBSC_BLN+RABSL UBF (R6) 
O30A 711 ; reserve 2 bytes for PRN carriage 
030A ay 3; control 
030A 713; 
O30A 714 ; Rewrite file 
O30A 715; 
56 DD O30A 716 PUSHL R6 
OOOOO6DF'EF 01 FB Ba06 717 CALLS #1,PASSREWRITE 
04 A6 00000400 8F C8 0313 718 BISL2 #FSBSM_OUTPUT,FSBSL =STA(R6) 
b3/8 719 : set OUTPUT fla 
55 08 AC 00 318 720 MOVL INP_DISP(AP) ,R5 R5 = address o eye FSB 
56 13 O31F 721 BEQL 10$~ S aeon if no INPUT file 
Oe E1 0321 ree BBC #DEVSV_TRM,- 
50 009C C¢ 0323 rg F S8SC_BLN+RABSC -BLN¢FABSL _DEV(R5S) 108 ; 
0327 724 : done if INPUT is not a terminal 
48 40 A? 02 + #€1 0327 1s BBC #DEVSV_TRM,FABSL _DEV(R7); - 108 
b3 : f § 3; done if OUTPUT is not a terminal 
032C 58 ; INPUT and OUTPUT are going to terminals. Reopen OUTPUT with PRN carriage 
sc 4 4 3 control, and set FSB'S to do prompting. 
4 731 ecu Ose FAB=R7 ; close OUTPUT 
1F AZ 03 90 7 § MOV or Aase VFC trate RFM(R7): set fixed-length control format 
3F A7 +3 90 8 ae MOVB 2 -FABSB FSz( : set control field size to 2 
1E A 9% D 734 CLRB Hee Ry) clear old carriage control 
1E A7 01 02 01 FO 40 735 INSV #1 wy “PRN, #1, FABSB_ RAT(R?) 
46 7 $ 3 set PRN corrioge control 
46 7 SCREATE FAB=R7 ; create new OUTPUT file 
40 A6 02 «C3 O34F 738 SUBL3 #2, FSBSC BLN+RABSL RBF (RO) 
44 A6 53 739 FSB$C_BLN+RABSL AMBRE) 
55 740 ; set RAB header buffer address 
55 741 ; (address of PRN carriage 
55 742 3; control buffer) 


PAS$SIO_ BASIC 
V02-000 


0645 01 09 OF FO 
14 AS 33 b9 
14 A6 Dd 
44 B6 8001 BF 
06 A6 «03 


00000004 
00000008 
0000000C 
00000010 


00000014 


00000018 


54 41 44 2€ 
00000004 


5B 6K CD 
5A 5 


On 
oO 


56 04 AA 00 
57 18 2$ C1 
58 00000044 8F 5 C1 


66 OOAC 8F 00 66 00 2 


WWINAIAIAIANIAIAIAAINI AINA NAIA NIAAA AAAI AIAN IAIN AINA AAAI AIAN AAAI ANIA AI 
0000000008 VN NNN OOOOUM 
CUMING ODUIVIVIFYVITM  & & C9099 00 OD Cd C9 09 OD CD CD CD CD 0D OD OD Od OD G9 CD C0 C9 CD CD CD 09 09 CD CD CD CD 09098 NIWWIWID OMIT FN 


SOOOOOCOOCOCOOOC COCO COCO OSOSOSOSOOOGCOCOOCOCOCOCOOCOCOOCOOCOCOOCOOCOOOO 


; PASCAL RMS Linkage 


SN 
RDP ASAI BP 


76 


00090009 09 09 C0 C0 0908 SI NII SINS 


=O OONA NEW SOODNOAOUE Ww 


i's via tt tas BLN(R6) 


SEHR 88:980 


AX/VMS Macro V04-00 
PASCAL.SRCJPASIO1.MAR; 1 


; re-connect RAB 


#FSBSV_PRMT,#1,FSBSL_STA(RS) 


MOVL 4 -FSBSL_PFSB(RS) 
-FSBSL-PFS 


B(R6) : 
MOVW SPkN “CRLF, aPepse “BLN+RABSL. RHB 


MOVB - #PASSC_PRN,FSBSB_CC(R6) : 
10$: RET 


.PSECT _PASSCODE, 


Reererrererrerererere 


a * 
*  PASSINITFILES * 
. + 


LARRRASASSLASAAAAAS SS | 


PIC,EXE, 


3 set prompt bit of INPUT FSB 
3 set related file FSB of INPUT 
set arnaeee* file FSB of OUTPUT 


nitialize carriage control 
; set PRN carriage control in FSB 


SHR ,NOWRT 


Called at procedure entry time to initialize the FSB, RAB and FAB to 
PASCAL default values after clearing them. 


Argument offsets 


AP 
FSB_DISP = 04 
NAM“DISP = 08 
LEN-DISP = 12 
EXT-DISP = 16 
TXT_DISP = 20 
MRL_DISP = 24 


; Arguments above are repeated for each 
; Default file name 
DFNAM: 


eASCII /.DAT/ 
DFLEN = 4 


10$: 
MOVL FSB pisese ire: R6 
ADDL R6, FF S$B$C_B N:R? 
ADDL R7, #RABSC— “BLN: *R8 


MOVCS #0,(R6),#0 


; number of arguments (6 per file) 


: FSB address 

; name string address 

; name string length 

; external/internal flag 

: = externa 

: 1s lnternat (delete on close) 
3; textfile flag 

; O = non-textfile 

; 1. textfile | 

3 maximum record size 


file 


iLes. S,“M<R2,R3,R4,R5,R6, 7. R8,R9,R10, a 


; Rif =# of files 

: RIO = calves of Ny 

: (simulates AP position in loop) 
3 Loop until all files initialized 


= address of FS 
a, = address of RAB 
; R8 = address of FAB 


: Clear control blocks (in case on stack) 


“a<F SBSC _BLN+RABSC_BLN+F ABSC_BLN>, (R6) 


CAPeAO BASIC ; PASCAL RMS Linkage eve i et tb 0g:06:1? AX/VMS Mac 


v04-0 
-$ I 


ro 0 
PASCAL.SRCJPASIO1.MAR; 1 
D 9 ; 
44 ; Initialize FSB 
9D : INSV —- TXT_DISP(R10) ,#FSBSV_TXT,#1,FSBSL_STA(RO) 
; Fonetine flag 
INSV — EXT_DISP(R10) ,#FSBSV_INT.#1,FSBSL_STA(R6) 
nternal flag 


MOVL  G*PASSC_DFLTLINLI,FSBSL_LIM(R6) 
; Linelimit 


06 A6 01 04 14 AA FO 
04646 01 08 10 AA FO 
OC A6 + 00000000'GF 00 


oooo 


: Initialize RAB 


INSV —_ EXT_DISP(R10) ,AFABSV_TMD.#1,FABSL_FOP(R8) 
; temporary file 


SA 18 9 DDL2 #24,R10 3 get next FSB address 
91 5B 2 sovete R11,10$ 3; decrement # of files counter 
0000 : .PSECT _PASSCODE, PIC, EXE,SHR,NOWRT 
REEeeeeeeeeeeeeerere 
® x 
* PASSOPEN * 
wv © 


gerererereerrrerinee 


Opens an existing file. The FSB, RAB, and FAB must have been 
initialized by a call to PASSINIT before this routine is called. 


1 
1 
67 1 90 1 MOVB #RABSC_BID,RABSB_BID(R7); block ID 
01 A7 44 8F 9 6 1 MOVB #RABSC_BLN,RABSB_BLN(R7); block Length 
3C A7 8 OD 1 MOVL R8,RABSL_FAB(R7) ; FAB address 
3 A? 00 90 F 1 MOVB #RABSC_SEQ,RABS$B_RAC(R7); sequential record access 
20 A? 18 AA BO 03C 1 MOVW  MRL_DISP(RIO) ,RABSW_USZ(R 
: : ; 3 set buffer size 
6 81 : Initialize FAB 
68 03 90 8 821° MOVB #FABSC_BID,FABSB_BID(R8); block ID 
01 A8& 50 8F 90 B 8 MOVB #FABSC_BLN,FABSB BLN(R8); block Length 
2C AB «0B AA ODO 0 8 MOVL NAM_DISP(R10) ,FABSL_FNA(R8) 
28 ; file specification address 
34 AB OC AA 5 8 MOVB  LEN_DISP(R10) ,FABSB_FNS(R8) 
A : file specification size 
30 AS OB AF ODE A 8 MOVAL DFNAM,FABSL_DNA(R8) ; default file name 
35 a8 820046 — 90 F : MOVB #DFLEN,FABSB_DNS(R8) ; default file name Length 
3 The call to PASSFILENAME was removed under the assumption that 
3 any name passed to PASSINITFILES is in coperenty static storage 
3 $ and does not need space for it allocated by LIBSGET_VM, nor 
3 does it need leading blanks stripped from it. 
; PUSHAL FABSL_FNA(R8) ; file name string address 
: PUSHAB FABSB_FNS(R8) :; file name string length address 
Hy CALLS #2,PASSF ILENAME 
1D AB 00 90 ; MOVB #FABSC_SEQ,FABS$B_ORG(R8); sequential files only 
E 
E 
1 
; 
5 
; 
5 
5 


BASIN OOD NAME WIN  O OD NAME WIN $$ O OO NAME WIN 0 OD NOAU EWN OO OONOU SUT 


SOOQGCOCOCOOSOSCOOGOCOOCOOCOOOCOCOOSOCOOCOOOOOOOCOoOoOO 


AWAAWAI WIA AAAI AAAI AW AIAAIAIWI AAI NINI IAI WII AIA ANNI WII 


PUTT Be BS BS BP BBE EE EWI WII 


K 13 
PASSIO. BASIC : PASCAL RMS Linkage 16-SEP-1984 02:06:19 VAX/VMS Macro v04-00 p 
VOL-006 S ~SeE138e BS:98:42 PARCYRS Bacco yOs~0o . , = Page 


F 2f ; Space for the record buffer is alocated by a call to "GET_vM’. 
: 28 3; Any error in opening or connecting the file causes a runtime error. 
: 9 3; Argument offsets 
F 62 : AP 3 number of arguments (7) 
0000004 O8Fs B68 FSB_DISP = 04 : FSB address ~ 
0000008 F 64 NAM_DISP = 08 3 file name string 
F 65 3 = use default 
4444 F 26 LEN_DISP = 12 ; file name string length 
000001 F 6 ACC_DISP = 16 ; RMS record access mode 
F 3 ; = sequential 
F 5 = direct 
00000014 F5 0 FMT_DISP = 20 ; RMS record format --- not used 
Oar 4 3 : = ver ieble 
P+ a xe 
00000018 O33 74 MRL_DISP = 24 : — record length (buffer 
; size 
O3F5 75 3 negative = allocate zero 
O3F5 76 ; but set USZ (used by 
O3F5 877 3 compiler only) 
Bare are 3 zero = not used 
3F5 79 3 positive = allocate as 
O3F5 880 3 requested and check ok 
O000001C O3F5 881 CAR_DISP = 28 ; carriage control flag --- not used 
O3F5 Ht 3 0 = no carriage control 
O3F5 88 3 1 = fortran carriage control 
bare See § 2 = CR/LF carriage control (LIST) 
001C bare 86 eENTRY PASSOPEN,“M<R2,R3,R4> ' 
OOOOOSCD'EF 16 O3F7 887 JSB CBINIT_R4 ; control block initialization 
O3FD 88 3; returns Re = address of FSB 
O3FD 889 5 R3 = address of RAB 
Bare eae 3 R4 = address of FAB 
bar 536 3; Open file with correct privilages (read and/or write) 
O3FD 893; 
O3FD Se 
barb +54 ; INCLUDE'd files are opened Read-only 
2C 04 A2~i1*F EO o7F8 44 BBS #FSBSV_INC,FSBSL_STA(R2) ,110$ 
358 699 ; Read and write access 
16 AG = 96 40 901 CLRB FABSB_FAC(R4) 
16 A402 88 405 90 BISB2 #FABSA_GET,FABSB_FAC(R4) 
16 A401 8 0409 90 BISB #F ABSM_PUT,FABSB_FAC(R4) 
16 A4 10 88 0400 904 BISB #F ABSM_TRN,FABSB_FAC(R4) 
oth 905 SOPEN AB=R 
03 04 A2 08 4 41A 90 bbc #fsb$Sv_int, fsb$l_sta(r2),101$  ; Better not be an internal file 
008 1 Belt 90 brw 920$ 
4 908 101$: ; 
4A 50 €E8 O42 909 BLBS RO,120$ ; branch if ok | ; . 
0001829A 8F 50 Di 04 910 CMPL RO, #RMS$_PRV ; check for privilege violation 
64 12 0420 911 BNEG 9006S 
42E 38 3 
42E 9135 ; Read access only 
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; PASCAL RMS Linkage Moree obe 05:99:00 


42E a4 
16 AG 9G t . 31 tos: CLRB =—s- FABSB_FAC(R4) 
1604 02 88 4 i $17 B1s62 FaBeh GET, FABSB_FAC(R4) 
2E 50 8 4 : 318 BLBS 0s 
4C 04 a2 fF € 44] 3 p BBS ar SBeue INC, FSBSL_STA(R2) ,9 
0446 9 g ; 
0001829A 8F 59 D1 0446 9 CMPL = RO, ARMSS$_PRV 
43 12 «404400 «0-924 BNEQ 906$ 
Beck 85K ¢ unit ( 
3 rite access on 
16 A6 9% beet 3 , CLRB iaak FAC(R4) 
16 AG 01 88 0452 929 BISB2 #FABSA Pur, FABSB_ FAC (RG) 
1604 10 CB 0456 930 BISL at ABST RN, FABSB_FAC(R4) 
045A 931 SOPEN FAB=R 
09 50 £8 0463 93¢ BLBS RO, 1508 : 
0001829A 8F 50 D1 0466 93 CMPL RO, #RMS$_PRV 
23 12 «04660 934 BNEQ  906$ 
O46F 935; 
046F 936 ; Connect the file 
046F 937: 
ee 339 — SCONNECT RAB=R3 
00018009 50 D1 0478 940 CMP RO, #RMS$_PENDING : 
09 12 O47F 941 BN EG 124$ 
0481 34e $WAIT RAB=R3 
48A 94 121$: 
50 £9 048A 944 BLBC R0,900$ 
20 CB 048D 945 BISL2 #FSBSM_OPEN,FSBSL_STA(R2) 
0491 946 : 
04 0491 947 RET 
ae ; ; 
Py pen error, send error message an stop 
049 950 ; . 
0492 951 ° 9008: 
50 DD 049 93¢ USHL : 
F C 0494 95 MOVZWL #*X8314,-(SP) : 
AS 609A «(0499 (954 MOVZBL FABS$B_FNS(R4) ,-(SP) : 
AS DD 0490 955 PUSHL FABSL~FNA(R4) : 
4 FB 04A0 956 CALLS #4,PASSIOERROR 
4A5 957 920$: 
F 3C Q4A5 958 movzwl #*x8314,-(sp) 3 
AS QA Q4AA 959 movzbl fab$b_ fns(r4) o7(sp) $ 
AS DD O4AE 960 pushl _fab$l~fna(r4) : 
03 FB 0481 £961 calls @# ~palbiaerrat 
Be $f 
0000: 964 -PSECT _PASSCODE, 


AX/VMS M 


Macro Pa 
PASCAL. SRCIPAS we 


v04-00 
$101.MAR;1 


3 ghranch if ok 
error if INCLUDE'd file and can't 
get read access 


; branch if ok 


check for completion 


: branch if error 


set open flag 


RMS error 

PASCAL error 

file name string length 
file name string 


PASCAL error 
file name string length 
file name string 


PIC, EXE ,SHR,NOWRT 
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-SEP- PASCAL.SRCJPASIO1.MAR;1 
486 44 H 
4B6 i ; Creates a new file. The FSB, RAB, and FAB must have been initialized 
486 975; by a galt to PASSINIT before this routine is called. Any error in 
r+ ase ; creating or connecting the file causes a runtime error. 
4B6 af8 3; Argument offsets 
iBe 978 | AP ber of ts (7) 
; 3; number of arguments 
00000004 0486 979 FSB_DISP = 04 : FSB address 
00000008 0486 980 NAM_DISP = 08 i file name string 
486 981 3 0 = use default 
4484 486 9 ¢ LEN_DISP = 12 ; file name string length 
000001 486 9 ACC_DISP = 16 ; RMS record access mode 
4B6 984 r 0 = sequential 
0486 985 : 1 = direct 
00000014 0486 aa6 FMT_DISP = 20 ; RMS record format 
0486 98 ; = variable 
0486 988 : 1 = fixe 
00000018 0486 989 MRL_DISP = 24 ; maximum record length(buffer size) 
0486 990 ; (buffer size) 
0486 991 : negative or zero = error 
04B6 3 (not use 
0486 99 3 positive = allocate requested 
0486 994 3 amount 
0000001C 0486 995 CAR_DISP = 28 ; carriage control 
0486 996 : 0 = no carriage control 
0486 99 : 1 = FORTRAN carriage control 
0486 998 : = CR/LF carriage control 
0486 999 3 (LIST) 
0486 1000 ; 
007C 0486 1001 -ENTRY PASSCREATE,“M<R2,R3,R4,R5,R6> z 
O00005CD'EF 16 0488 1002 JSB CBINIT_R4 ; control block initialization 
Q4BE 1003 3; returns R2 = address of FSB 
O4BE 1004 3 R3 = address of RAB 
O4BE 1005 : R4 = address of FAB 
55 D4 O4BE 1006 CLRL R5 ; clear test register — 
56 1C AC D0 04C€0 1007 MOVL CAR_DISP(AP) ,R6 ; get carriage control into R6 
59 04 A2 0A —SCO=E:«s04C4 «1008 BBC #F SBSV_OUTPUT ,FSBSL_STA(R2) ,200$ 
034 1009 ; check for file OUTPUT 
10 A2. DS 04C9 1010 TSTL FSBSL_CNT(R2) 3 check Line count 
2C 12 Q4CC 1011 BNEQ 
08 AC D5 O4CE 1916 TSTL NAM_DISP(AP) ; check standard parameters 
27 \¢ 04D1 101 BNEQ 
10 AC OD 4D3 13i% TSTL ACC_DISP(AP) 
22 ig 4D6 1015 BNEQ 
14 AC OD 408 1016 TSTL FMT _DISPCAP) 
1D 12 0408 1017 BNEQ 
00000101 8F 18 * D1 Bene 1918 CMPL Bet. DISPCAP) ,#PAS$SC_DFLTRECSI 
1 12 tes 3 BNEC 2708 
06 A2 56 91 Oce? 1931 CMPB R6,FSB$B_CC(R2) : check for existing carriage 
4EB 10 § 3; contro F 
01 12 Q4EB 10 BNEQ 2808 : return if new one is the same 
04 Q4ED 1024 RET 
4EE 1025 ; 
4EE 1 § 2808: : 
06 A2 03 91 O4EE 1 CMPB #PASSC_PRN,FSBS$B_CC(R2) ; return if old one is PRN and 
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+: a 4F2 1 BNEQ 260$ i new one is LIST 
o2 $8 OF bere | : CHPB RG, HPASSC_LIST | 
04 12 OF? 1 BNEQ  275$ 
04 O4F9 1031 RET 
4FA 1 ¢ : 
4FA 1 2708: 
OOBF 31 O4FA 1034 BRW 9108 
rt 4 : 5 275$ 
ger 18 :; Old carriage control is PRN and new is not. Disable prompting. 
50 14 A2 DO O4FD 1039 ° MOVL  FSBSL_PFSB(R2),RO = address of INPUT FSB | 
04A0 01 09 06 Po 030) 1040 INSV #0,#FSBSV_PRMT.#1,FSBSL brhtro) 
507 1041 5 ~ prs PROMPT bit 
0507 1 g 260$: 
55 D6 0507 Hr INCL R5 ; set OUTPUT flag | 
04 A2 40000000 BF C8 0509 1044 BISL2 tf SBSM _DELZ,FSBSL =STA(R2) 
0511 1045 ; set delete flag 
‘ 52. DD 0511 1046 PUSHL R2 
00000852'EF 01 FB 0513 1047 CALLS #1,PASSCLOSEINOUT 
04 AS 00008000 BF CA B2i8 1968 2008 ICL2 #FABSM_DLT,FABSL_FOP(R4); clear delete flag 
1€ 04 A2 04 ~—=«€E1 0398 1050 #FSBSV_TXT,FSBSL_STA(R2), ht 
0527 1051 : kip if binary 
1E AG 94 0527 1336 CLRB FABSB_RAT(R4) : clear field 
06 A2 56 90 052A 105 MOVB R6, FS6Se_ CC(R2) ; set carriage control field 
01 56 01 Oo¢e 1054 CMPL R6,# 3 set carriage control 
10 19 0531 1055 BLSS ares 
08 14 0533 1056 BGTR  212$ 
1E AG OO] 00 = (1 FO 0535 1057 INSV #1, #F ABSV_FIN,#1,FABSB_RAT(R4) 
0538 1058 ; FORTRAN carriage control 
06 11 0538 1059 BRB 216$ 
053D 1060 212$: 
1E AG 01 01 01 FO 0Q53D 1061 INSV #1,#FABSV_CR,#1,FABSB_RAT(R4) 
0543 1306 ; CR/LF carriage control 
o363 106 216$: 
14 AC D5 0543 1064 TSTL FMT _DISPC(AP) ; record format 
06 12 0546 1065 BNEQ : 
1F AG 02 90 0548 1066 MOVB So Agee VAR FARR STARE): variable 
09 11 O54C 1067 BRB 221$ 
054E 1068 2208: 
1F 01 90 054E 1069 MOVB hat FIX,FABSB S eee fixed 
36 AS «6-18 AC «=—BO «0552 «(1070 MOVW L_DISP(AP) ,FABSW_MRS(R4) : | 
633 1071 3 set maximum record size 
557 1076 3 E ; P 
0557 1073 ; Create file with reac and write access 
0557 1074 ; 
557 1075 221$: 
16 AS «8694 )«=—0557 1976 CLRB FABSB_FAC(R4) 
16 AS 02 88 QO55A 107 BI1SB #FABSA_GET,FABSB_FAC(R4) 
16 a4 O01 88 356 1078 BISB2 #FABSM~PUT.FABSB~FAC(R4) | 
16 AG 10 88 0562 1079 BISB #F ABSM_TRN,FABSB_FAC(R4) 
566 1080 SCREATE FAB=R4 
37 50 =«€9 gf 1081 BLBC RO,900 ; Branch on error 
372 108¢ SCONNECT R RAB=R3 
00018009 8F 50 01 O57B 108 MPL Rg #RMS$_PENDING : check for completion 
09 12 0582 1084 BNE 134$ 
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5 5 SWAIT RAB=R3 
2 § 131$: 
BLBC RO,900$ > branch if error 
5 8 BISL2 #FSBSM_OPEN,FSBSL_STA(R2) 
7] 3; set open flag 
9 90 TSTL R5 3; check for file OUTPUT 
9 091 BEQL 160$ 
9 O36 BISL2 #FSBSM_OUTPUT,FSBSL_STA(R2) 
A 9 ; set OUTPUT flag 
AO 1094 BICL2 #FSBSM_DELZ,FSBSL_STA(R2) 
A 095 ; clear delete flag 
A 838 160$: 
tt 
+44 ; Create error, send error message and abort 
A 01 9008: 
A 8 PUSHL RO ; RMS error 
0 MOVZWL #*X8314,-(SP) ; PASCAL error 
04 MOVZBL FABSB_FNS(R4) ,-(SP) ; file name string length 
05 USHL FABSL_FNA(R4) : file name string 
BS CALLS #4,PASSIOERROR 
; File OUTPUT erroneously opened 
910$: 
MOVZWL #*X83F4,-(SP) : error code 
MOVZBL FABSB_FNS(R4),-(SP) : file name string length 
USHL FABSL_FNA(R4) ; file name string 
CALLS #3,PASSIOERROR 
-PSECT _PASSCODE, PIC,EXE,SHR,NOWRT 
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D 


Reeeeeeeeeereeeererese 
® a 
. CBINIT.RG ®t 
® * 
RET aeeeeeeeeereee 


This JSB routine initializes t 
an OPEN/CREATE request. The ad 


buffer is also allocated. 


CVS oe Be Be Oe Oe Oe Be Be Oe Be Be oe 


BINIT_R4: 
MOVL_ FSB_DISP(AP) ,R2 
ADDL Re. JF SBSC_BLN.R3 
ADDL3 R3.#RABSC~BLN.R4 


: Allocate buffer space 


he RAB and FAB control blocks during 
dresses of the FSB, RAB, and FAB are 


returned in registers R2, R3, and R4 respectively. Space for the user 


3 Ré = address of FSB 
; R35 = address of RAB 
; R4 = address of FAS 


S WVOU SUS MIMO OOOO COCO OO OOOO OO MU HOO UR OD OOOO OWmmoomeRknooon 
a ee ee ee ee ee dd dd 


=O OONAWUE VIN SO OONOA UE WN O OONOUES WN O00 


B 
PUSHAL 
PUSHAL 


MMMM IOVOEVIGIAAAAAAAAAAOAAOAOOOCOCCWWBWWABWOODW 


MRL _DISPCAP) 
1208 


#FSBSV_OUTPUT.FSBSL_STA(R2),121$ 
RABSL_OBF (R3) 
MRL_DISP(AP) 
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00000000 * GF i Fe 
1A 4 

7E mS F 3 
7E 4 AG A 

CAS ODD 
FADA CF 04 FB 
05 13 

18 AC «618 AC OCE 
04 A2 01 06 10 AC FO 
20 AS 18 AC BO 

08 AC OD 

+ aoe 
2c AG «608 AC OO 
34 AG «60C AC O90 
CAG ODF 

4AG OF 

FAGA CF 02 FB 

05 

00000004 

001¢ 
04 AC 00 

55 18 26 C1 

54 00000044 8F 5 C1 
28 04 A2 «205~—iEO 
1404 A2 08 €1 


DPDDPDAED DADA AAA AA AAA AAA AA AAAAAAAAAAAAAA OO AAAS OUI 
WIWWWWAWAAAWAAAAAA AANA AAA AW AAAAIROPRIPINONN | =  @ @OQOODOOT TNT HM 
SHH LAH WNOM Y 0000000000000 00 09 09 00. G0 09 09 09 00 09 09 09 09 09 NIIP FOO NNINOU 0 O00 & PW MUM ONL O 


SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS SSSA ESE. 


POAAAAOAAO 
DV & 


me a ee a a ed od dd ed ed dd dd 8 
i a a me ed ad ad ed ed ed ed dd = 8 8 2 2 8 ss 2 


WOOO O OOO O00 00.09 0909 09 09 09 09 0D SS NN NNSA AAA AAA AA MTT BS 
BNA AN OS OD NAY & WIV CO OD NAM EWN 0 OD NA UNE WO OO NOU WW CO OONOAU Ew 
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CALLS #2,G*LIBSGET_VM 
gut 
PUSHL R 
MOVZWL #*X8324,-(SP) 
MOVZBL FABSB_FNS(R4),-(SP) 
USHL FABSL_FNA(R4) 
CALLS #4,PASSIOERROR 
1208: 
EQL 121$ 


1215, PNEGL — MRL_DISPCAP) MRL _DISPCAP) 
" INSV —- ACC_DISP(AP) , #F SBSV_DIR,#1,F SBSL_STA(R2) 


; direct flag 
MOVW  MRL_DISP(AP) ,RABSW_USZ(R3) 

; user record area size 
TSTL NAM _DISPCAP) : check for file name 
BEQL 9108 ; branch if no tile name 
MOVL § NAM_DISP(AP) ,FABSL_FNA(R4) 

; file name string address 
MOVB = LEN_DISP(AP) ,FABSB_FNS(R4) _ 


: file name string length 
PUSHAL FABSL_FNA(R4) file name string address 
PUSHAB FABSB_FNS(R4) file name string length address 
vies CALLS #2,PASSFILENAME translate file name 


RSB 


-PSECT _PASSCODE, PIC,EXE,SHR,NOWRT 
eeeeeeeerererereeene 
® * 
* PASSRESET * 
® * 


LARRRRRASSSALALAL S&S & | 


Rewinds a file to the beginning of information and sets/clears the 
apgrege tote flags in the status word of the FSB. If the file is 
not a voaty opened (the open bit is clear) then an existing file 
is opened by a call to PASSOPEN. The buffer is NOT filled. 


Argument offsets 


number of arguments (1) 


AP 
FSB_DISP = 04 FSB address 


-ENTRY PASSRESET,“*M<R2,R3,R4> 
MOV 


L_  FSB_DISP(AP) ,R2 ; R2 = address of FSB 
ADDL R2,¥FSB$C_BLN,R3 ; R3 = address of RAB 
ADDL3 3, #RABSC-BLN.RG - R4 = address of FAB 
BBS #F SBSV_OPEN, FSBSL_STA(R25,110$ 


; branch if open 
BBC #F SBSV_INT,FSBSL_STA(R2),105$ 
; internal file? 


: Error if unopened internal file 
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BICL A(R2) 

04 A 04 BICL #F SBSM~EOLN,FSBSC_STA(R2 

04 A208 BISL2 #F SBSM~GET, F SBSL ~STACRQ): set read flag 

04 A2 00000080 a BICL #FSBSM_PUT,FSBSL-STA(R2); clear write flag 
04 A201 BISL _STA(R2 


#F SBSM~RDLN,F SBSC 


AAPA 


o 
> 


set READLN flag 


OOCooooooo 


AAAS 
oo 
mm 


-PSECT _PASSCODE, PIC, EXE, SHR,NOWRT 


eertererrererrererere 
o ® 


7900" 92 BF pe 654 1199 PUSHL "file net found’ error 
90 ¢ A 065A 1200 MOVZBL crease, POLNSRABSC _BLN+FABSE™ HENSD (2), -(SP) 
8 § DD QO65F 1201 PUSHL <FSBS$C~ BLNSRABSC “BLN+F ABSL_FNAD>(R 
a CF FB re } § CALLS #3,PASSIOERRO 
re } ¢ ; Open an unopened but existing file 
668 1 § 105$: 
00 D 0668 1 PUSHL #PASS$C_NOCARR : carriage control -- not used 
7E 20A C Q66A 1 § MOVZWL Rapsy 0SZ(R3),=(SP) 3 record length 
7E C 06 120 CLRD me 2 
7E 7C 88 1210 CLRD 
04 AG DD 67 1211 PUSHL Fse, b1sP CAP) 
FD7B CF 0 FB pee2 : \¢ CALLS PASSOPEN 
67A 1214 ; Rewind the file if applicable 
67A 1215 ; Flush the buffer if necessary 
067A 1 1 : 
067A 121 1108: 
47 40 AG 00 EO O67A 1218 BBS #DEVSV_REC,FABSL_DEV(R4), 1208. 
O67F 1219 3: can't rewind unit record device 
0D 04 A2 OF €1 O67F 1220 BBC #FSBSV_PUT,FSBSL_STA(R2),115$ 
0684 1221 ; last operation write? 
28 AS) «662)~—CoiéiTs«é6 BSCS ¢ CMPL (R2) ,RABSL_RBF (R3) ; buffer empty 
07 13 0688 1 BEQL 1 
00000A12'EF 6C FA pean : : 1158 CALLG (AP) ,PASSWRITELN ; flush buffer 
1E AS 00 90 0691 1226 MOVB #RABSC_SEQ,RABSB_RAC(R3); make sure sequential 
0695 1227 : (for binary files) 
0695 1228 SREWIND RAB=R3 
00018009 8F 50 01 Bere 1229 CMPL RO, #RMS$_PENDING ; check for completion 
09 12 O6A5 1230 BNEQ 1188 
Q06A7 1231 SWAIT  RAB=R3 
680 1 3 118$: 
13 50 €8 0680 123 BLBS RO,1208 3; branch if ok 
50 po 0683 1234 PUSHL RO 
7E 8354 8F C 0685 1 $2 MOVZWL 4 #*xX8354,-(SP) 
4 AG 9A O6BA 1236 MOVZBL FABSB_FNS(R4),-(SP) 
AG OD pee 1237 PUSHL FABSL~FNA(R4) 
FAIE CF 04 FB 06C1 1 3 CALLS #4,PASSIOERROR 
06C6 1239 ; 
! re 3; Reset status word 
1 tg 120$: 
04 A 02 : rb #FSBSM_EOF ,FSBSL_ST 
1528 
Be 
1 rh 
1250 
He 
1533 
1254 
1255 
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DF 1256; *  PASSREWRITE * 
DF 1883 " * © 
DF ! 8 : eeerererrerereereeee 
DF 3 
ODF 1260 ; Closes and deletes the existing file (if one exists) and creates a 
ODF 1261 ; new file, setting/clearing the appropriate flags in the status word 
60F 1 6¢ : of the FSB 
6DF 1265 ; 
6DF 1264 ; Argument offsets 
BDF 1566 ap ber of a) 
; ; number of arguments 
00000004 re ! ¢ FSB_DISP = 04 ; FSB address . 
003C O6DF 1 +4 sENTRY PASSREWRITE,*M<R2,R3,R4,R5> 
5204 AC 00 06E1 1270 MOVL  FSB_DISP(APS,R2 ; R2 = address of FSB 
a, C1 eed 1271 ADDL R2,#FSBSC_BLN,R3 ; R3 = address of RAB 
54 00000044 8 5 C1 6—9 1 i ADDL R5,#RABSC_BLN,RS ; R4 = address of FAB 
15046 a2 05 £0 O06F1 127 BBS #F SBSV_OPEN. FSBSL_STA(R25 ,110$ 
O6F6 1274 ; branch if existing file 
O6F6 1275 ; 
pore : 26 ; Not yet opened, create a new file 
0 DD O6F6 1278 PUSHL #PASSC_LIST ; default carriage control 
7E «620A 3C O6F8 1279 MOVZWL RAB$W_0SZ(R3),-(SP) ; record size 
7E 7C O6FC 1280 CLRD -(SP) 
7C O6FE 138) CLRD = (SP) 
04 AC DD 0700 1 8 PUSHL FSB_DISP(AP) 
FDAE CF 07 FB 0703 128 CALLS #7, PASSCREATE 
0096 31 0708 1284 BRW 186$ 
0708 1285 ; . 
0708 1286 ; Truncate the file from the 1st record on 
070B 1287 ; 
0708 1288 110$: 
03 40 A4-~ = 00 4 070B 1289 BBC #DEVSV_REC,FABSL_DEV(R4) ,111$ 
O08E 1 0710 1290 BRW 1 ; skip for unit record device 
1€ AS 00) «6990 «207135 «1291 1118: MOVB WRABSC_SEQ,RABSB_RAC(R3); make sure sequential 
0717 1336 : (for binary files) 
0717 129 SREWIND RAB=R3 
00018009 8F 50 01 B7e0 1294 CMPL RO, #RMS$_PENDING 
09 12 0727 1295 BNEQ 1208 
0729 1296 $SWAIT RAB=R3 
07 $ 1297 1208: ; 
03 50 €8 07 1298 BLBS 8 125$ ; branch if ok 
0090 31 0735 1299 BRW 906$ 
738 1300 125$: . 
0738 1301 $GET RAB=R3 ; get first for truncate 
00018009 8F 50 Di 0741 1 8 CMPL RO, #RMS$_PENDING 
09 12 0748 130 BNEQ 1308 
74A 1304 SWAIT RAB=R3 
P33 1 B2 130$: : : 
0001827A 8F 50 »D1 QO7 1306 CMPL ng #RMS$_EOF : check if empty file 
24 «12 aA 1307 BNEQ 6137S 
a! 1309 SREWIND RAB=R3 : if empty, rewind and set TPT bit 
00018009 8F 50 D1 0765 1310 CMPL R9 #RMS$_PENDING 
09 #12 O76C 1311 BNEQ S$ 
76E 1312 SUAIT RAB=R3 
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a as 


52 50 
00018009 8F 50 
09 


34 50 


28 AS = 24 AS 
22 AS 20 AB 
04 A201 


04 A 02 
04 A 04 


04 A208 
04 A2 000000 


80 

10 ¢ 

62 28 A 
30 «20 
08 A2 50 28 


50 
7E_-- 8364 BF 
7E 34 A 


ec A 
FEFC CF 604 
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PAAAA AN. AAA AA. AAA AAAI AI AAAI AAAI ANIA NINA AIA AINA AINA NINIAIAIAIAIA WAI 


PDP PQLXPLDPPL PAPA D Assess BB BB INI 
OOD NA UE WIN O OO NO UE WIN 0 OO NA UE WN 0 OD NAU EWN 0 OD NOAUES WIN OWOONAUS Ww 


"SiSEp-1986 08:98:00 EPAStaL.s 


port) 
Ao 
wn 
vo 
> 


BLBC_ R0,900$ 

BISL2 #RABSH_TPT,RABSL_ROP(R3) 

BRB 180 

STRUNCATE has R3 Srenenee the te t > fil 
= , trunca = 

cHPL RO #RMS$_PENDING uncate e (empty or non-empty e 


SWAIT RAB=R3 
BLBC RO,900$ : branch if error 


; Set the FSB and record address 


MOVL  RABSL_UBF (R3) ,RABSL_RBF (R3) 


; set write buffer address 


MOVW = RABSW_USZ(R3) ,RABSW_RSZ(R3) 
; set write buffer size 
BICL2 #FSBSM_RDLN,FSBSL_STA(R25 


; clear RDLN flag 
BISL #FSBSM_EOF ,FSBSL_STA(R2); set EOF 
BISL  #FSBSM~EOLN,FSBSC_STA(R2) om: 
s set 
Bictg #FSBSM_GET,FSBSL_STA(R2); clear read flag 


#FSBSM_PUT,FSBSL_STA(R2); set write flag 
FSBSL_ENT (Re) ; clear write record count 
RABSL_RBF (RS), (R2) ; initialize pointer to first 
CVTWL RABSW-USZ(R3),RO 
ADDL3 RABSL_RBF(R3),RO,FSBSL_LST(R2) 
; set last 
RET 
detected during rewrite 
PUSHL RO 
MOVZWL #*X8364,-(SP) 
MOVZBL FABSB_FNS(R4) ,-(SP) 
PUSHL FABSL_FNA(R4) 
CALLS #4,PASSIOERROR 
-PSECT _PASSCODE, PIC,EXE,SHR,NOWRT 


eeererrrrrererererere 


* * 
* PASSF IND * 
. é 


gertererrrrererereree 


Sets access by key field and sets key value for the next read. 
The access mode is returned to sequential at the end 
of the next read (PASS$GETBIN). 


Argument offsets 
AP 


; number of arguments (2) 


: & 
o 


——_—_ --—--- -— SO 
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44 4 DISP = r ; FSB address 
8 DISP = 08 i; relative record number (by value) 


TRY PASSFIND,“M<R6,R7,R8,R9> 
MOVL. FSB DISP(AP) Rb ; RS = address of FSB 
ADDL #FSBSC_BLN,RO,R7 = address of RAB 
ADOL #RABSC"BLN,R ‘RB : R8 = address of FAB 


; Check if RESET called 


BBC #F SBSV_GET,FSBSL_STA(R6) ,930$ 
3 read access? 


5604 ac 
ee 1 C1 
58 57 00000044 8F C1 


4204606 03 €1 


SSN NNN 


: Check for valid file type and itt access to key 
: {3} must be Dinar 


sequential tite'u with fixed length records 


BBS #FSBSV_TXT,FSBSL_STA(R6), 9108 
must be binary file 
@ 


COOCCO FR Fh HH HeMMMmMmern 
OM > Ol HHH HHH > > S Pron > COCDCDCD 


1D a8 90 1 cMPB #F ABSC_SEQ,FABSB_ORG (RB); sequential f 
1F AB «6O1 C93? CMPB #FABSC_FIX,FABSB_RFM(RB); fixed Length records 
0 i BNEQ 910$ 
1E A7 1 MOVB eonees KEY 149) -RAC(R7); oe key access 
34 a7 06 90 MOVB 4, RABSB_KS2( t key size 
04 A6 02 «OCA bicl2 stebsa eof abst sta(r6): eleer eof flag 
30 A? 14 A6 ODE MOVAL FSBSL_REC(R6) ,RASSL_KBF (R7) 


0 
1 
: 
4 
5 
i 
§ 
0 
1 
: 
4 
& 
8 
9 
0 
1 
: 
4 
5 
$ : io key buffer address 
8 MOVL  REC_DISP(AP),FSBSL =REC(RO) | 
; 
: 
4 
5 
6 
? 
8 
9 
0 
1 
: 
4 
5 
5 
B 
9 
0 
1 
§ 
4 
5 
6 


3 
7E 3408 9 
P 


4,-(S 

_FNS(R 

2c ae PUSHL FABSL-FNA(R 

F892 CF OOO SIOER 


CALLS #3,PAS 


-PSECT _PASSCODE, PIC, EXE,SHR,NOWRT 


etereerererererereres 
® ® 


2.0900 Gd Gd Cd OD 00 OD Od Cd Od OD Od Od Od Gd GD Od Cd OD 69 GD CD OD OD OD CD CD Cd OD 0D CD CD CD CD CD CD OD INI INI 


PUPP BB BE EE WMI WINI III NINN 
PPM PONINIO FB OF NM OUIO OOOO MB 4MWIRAO SPOOL 


SOOCOCOCOOCCOOCOSCOSCSOOOCOCOOSOOCOOSOOCOOOOOOOOOOOOOCOO 


9 
9 
9 key 
04046 A6 03 EI 40 BBC #FSBSV_GET,FSBSL STA(R6). 115$ 
04 A6 01 =CB 40 BISL2 #FSBSMTROLN,FSBSC_STA (R65 
40 ; set RDLN flag 
40 115$: 
04 rf RET 
Pt ; Error, file not of appropriate type 
40 910$: 
7E 83C4 BF 3¢ 40 MOVZWL #*XxX83C4,-(SP) 
7E 34 AB 9A 41 MOVZBL FABSB_FNS(R8),-(SP) 
2c ae 0D 41 PUSHL FABSL”FNA(RB) 
FBAS CF 0 FB rt CALLS #3, PASSIOERROR 
re 3; Error, file not reset or rewritten 
41 930$: 
7E 8304 8F a MOVZWL #*x8 
41 
4 
4 
4 
4 
4 
4 
4 


PAS$1O BASIC 
v0e=000 


57 


5E 


52 
53 (04 


54 


79 Oe he 

74 04 AG 

14 04 A4 

OF 04 AG 
64 


00000A12'EF 
OD 04 A4 


; PASCAL RMS Linkage 


PUPP AIT 


[=] 


55 18 
56 §=655 _ 00000044 
77 04 AG 


oOo OCOOUM UO 
ro VFBFW OO 
mm MAAnSo oOo 
oo any -—o 


mm 
o oO 


NWT MO OO & & MOD OM BD NNWOOOS OD OO NI EPPPIPIPOPNIPORPPOPININNNTD 


o m 
—_- —_ 
OO O00 09 09 09 09 SI NIN NOAA AAAI 


ao-—o 
~ 


onuw 


0 
04 A6 00008000 


a a ee ae a a a ee ee ee a a ed 
Ft det tet dee ek ek ek eh ee ek eth ehh ek th eh eh he ek ek et et kk ek et et et et eee ea 
DOOD GOD I DED DD DDD DDD TU BS BBS BBB BB INIA 
WR OS OO NA UE WIN 9 OOD NAME WIN O OD NAU EWN 0 OD NAUE WN O OONOAOU EWR —-O0OO~n 


om 

—oo 

ett ti] 
ou f&fFEO 


09 
0001C032 8F 


SSEp=-198e 00:30:06 EPASCAL.SREIPASION MAR: 1 


OSE 


PASSCL * 
PASSCLOSEINOUT - 
teeeerererererereee 


Closes N files (N > 0). The pointer is set to nil and the open 
flag is cleared. Any error in closing the file causes a runtime error. 


Argument offsets 


; number of argumen 


ts (n) 
; FSB address of file #1 


; FSB address of file #n 


PASSCLOSEINOUT, “M<R2,R3,R4,R5,R6,R7> 
oR ; set flag for CLOSEINOUT 
CLOSEENT 


PASSCLOSE ,“M<R2,R3,R4,R5,R6,R7> 
R7 3; set flag for CLOSE 


-(SP),SP ; make room for parameter 
; to LIBSFREE_VM 
(AP) ,R2 ; R2 = number of arguments 
AP, #4,R3 : R3 = address of 1st FSB address 
3; loop until all files closed 
(R3),R4 ; R4 = address of FSB 
R4,#FSBSC_BLN,RS : RS = address of RAB 
#RABSC_BLA,RS,R6 ; R6 = address of FAB 
#FSBSV-OPEN, FSBSL_STA(R4),120$ 
; branch if file already closed 
#0,R7,15$ ; branch if call from CLOSEINOUT 
#F SBSV_OUTPUT,FSBSL_STA(R4) ,130$ 
; branch if file OUTPUT or INPUT 
#F SBSV_INPUT,FSBSL_STA(R4) ,130$ 


alent ante iemee stained 1 
: branc 
#FSBSV_TXT,FSBSL_STA(R4) ,110$ 

; branch if not textfile 
RABEL AOE CRS). (RA) 


h if get access 


RG 
#1,PASSWRITELN 
#FSBSV_DELZ,FSBSL_STA(R4) ,105$ 

; branch if not delete 
FRpSt CNT (RS) 3; check Line count 
#FABSM_DLT,FABSL_FOP(R6); set delete flag 
FAB=R 


RO,115$ 
RO. #RMSS_MKD 


close the file 
branch if ok 
check for no deletion error 


mane 


pris Macro V04-00 
UPASCAL. SRCJPASIO1.MAR; 1 


; branch if that's not it 
branch if file INPUT or OUTPUT 
; deallocate file name string 


; ignore errors 
; deallocate file buffer 


; ignore errors 
; clear OPEN flag 


; loop if more files 


; PASCAL error code 
: file name string length 
; file name 


EXE, SHR,NOWRT 


; number of arguments (1) 
; FSB address 


I 14 
AS$IO_ BASIC ; PASCAL RM -SEP-1 
VoL +000 cat tc ee a "973Ep=1o8e 05; 
45 12 44 16 4 1188 BNEQ 135$ 
22 57 EB 9 14 : ' BLBS RT, 1178 : 
6E 4 AG OA C 14 8 MOVZ FABSB_ tate f (SP) 
C A6 ODF D 14 PUSHAL Fags LF (R6) 
5 ) D 1490 PUSHAL 4(SP)~ 
00000000'GF 0 ia + 1321 CALLS #2,G*LIBSFREE_VM 
6E 0 AS 3¢ 0D 1298 MOVZWL RABSW USE IRD} « (SP) 
TAB RL ess PUSME ARUP) 
00000000 ' GF 05 FS tH 1e38 1178 CALLS #2,G*LIBSFREE_VM 
046 a6 20 CA BE 1498 " BICL2  #FSBSM_OPEN,FSBSL_STA(R4) 
8F2 1500 1208: 
a oe a 
88 15 ef 1808 BLEQ i555 
FF6B 31 O8F9 1504 BRW 10$ 
04 pare 1505 125$: RET 
BE 1 
Oar 1308 hain file OUTPUT cannot be closed 
7E 8354 8F 3C O8FD 1511 " MOVZWL #*X83E4,-(SP) 
7E 4 A6 SA 902 1216 MOVZBL FABSB_FNS(R6),-(SP) 
2c ag DD 906 151 PUSHL FABSL~ FNA(R6) 
F7D6 CF 0 FB 0909 1514 ; CALLS #43, PASSIOERROR 
9 D 30 aye canoe PUSHL 
7E 8384 8F ee $10 1517 MOVZWL #*X83B4,-(SP) 
7E 4A6 SA 091 1518 MOVZBL FABSB_FNS(R6),-(SP) 
2C A6 DD Bele 1519 PUSHL FABSL~ FNA(R6) 
F7C3 CF 04 FB ah! 1 y CALLS #4, PASSIOERROR 
RE 
000008 13 4 ; .PSECT _PASSCODE, PIC 
94 : 1 § : eeerererrerereereree 
3 * » 
> : 13 8 3 : PASSEOF * 
e t 
; ; HF ? : aeeeeerererererereee 
921 15 § : Checks for end-of-file. If the RDLN bit is set the next record 
, ' 1 ? ; is retrieved. 
921 1535 : Argument offsets 
95) 1839 ap 
00000004 3 13 g , FSB_DISP = 04 
0040 0921 1540 ° .ENTRY PASSEOF “MRO 


3; end of file 


Page 27 
° (1) 


PA 
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y0n. 600 ° mit} 7 85:98:02 YPASCAL. SREIPASION MARS 1 . (1) 
6 O4A 0 9 4 MOVL FSB _DISPCAP) ,R6 ; R6 = address of variable 
07 be ae (OO p9 } 4 BBC #FSBSV.ROLN,FSESL_STA(RS) 108. ‘ ae 
3 need ne ? 
00000950°EF 6¢ FA 09 44 CALLG (AP) ,PASSACTUALGET + phpcpitteent 
50 0 oD 9 4 * MOVE #PASSC_FALSE,RO i_set function return to FALSE 
0306 46 01 «E1 0936 154 BBC #F SBSVEOF .F SBSL_STA(RG) _998 . 
9 4 ; branch if not EOF 
50 01 400 4 : 4 998: MOVL #PASSC_TRUE,RO 3; set function return to TRUE 
04 0936 "RET 
Ht 
0000093F 1394 -PSECT _PASSCODE, PIC,EXE,SHR,NOWRT 
93F 5 : eeeererrerrerererene 
O3F 57 ; « * 
43 F 58 ; ® PASSEOLN * 
O3F 59; 2 ‘ 
bate ? 3 Reeeeererereerereeee 
O93F : Checks for end-of-line. If the RDLN bit is set the next record 
+4 : 635 ; is retrieved. 
093 > Argument offsets 
O93F : AP 3 number of arguments (1) 
00000004 095 FSB_DISP = 04 ii eos” 
0040 8544 -ENTRY PASSEOLN,“MR6 ; end of Line 
56 04 AC DO 0941 7 MOVL FSB _DISP(AP) ,R6 ; R6 = address of pointer 
07 04 a6 46000)—SCE1—«—(0945 BBC #F SBSV_RDLN,FSBSL_STA(R6) ,110$ 
094 3 need next record 


OOOOO9SD'EF 6C FA CALLG (AP) ,PASSACTUALGET 


oO 
“oo 
~ 
PY 


PAPA AIMAMAMIA IMAI 


1108: 
50 00 »v0 MOVL #PASSC_FALSE,RO ; set function return to FALSE 
0304 A6 02 €1 BBC #F SBSV_EOLN, FSBSL_STA(R6),199$ 
; branch if not eoln 
50 01 00 1998 MOVL #PASS$SC_TRUE,RO 3; set function return to TRUE 
04 "RET 
0000 : .PSECT _PASSCODE, PIC, EXE,SHR,NOWRT 


ARRAS ASALASALA AS SS SE | 


® a 
. PASSACTUALGET “ 


(ARR RRARASARAA LASS SS 


Does the actual file access for text and binary files. PASSACTUALGET 
is called from the compiler if the RDLN flag is set, from other 
input routines in the I-0 interface, or from PASSEOF and PASSEOLN 


if the ROLN flag is set. The access codes should be checked before 
gett tas tote procedure. The RDLN flag being set implies read access 
is permitted. 


aa a a a a a at a a a a a a a a a 


o 


NOAA 9 OO NAN E WIN OS OD NAU EWN 0 OO NOAUE WW OC OD NOA UNE UW O OO NOU wr 
ee Sete 


Bete Se Ge Ge Se Se Ge Se Se Se Ge Se 


DOOOOOOOOVOVOVOVOOVOOVOOVOOOOO 
bw hw dw) hm) ~~) =) ~~) ~~) ~~) ~~) ~) ~~) ~ Tale) Pe 


SOOOQOQCOQOOCOOoOooQoQoQoQoQoooooooo 
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y04.000 ° et a ey P meal < 


Macr 
- PASCAL.SRCJPASIO1.MAR; 1 ) 


920 1398 3 
$30 1223 ; Argument offsets 
95D 1601 : AP ; number of arguments 
00000004 0950 1602 FSB_DISP = 04 : FSB address © 
oes 95D 1604 sENTRY PASSACTUALGET,“M<R6,R7,R8> 
56 04 AC 00 095F 1605 MOVL FSB _DISP(AP),R6 - R6 = address of FSB 
04 A6 O01 CA 363 1606 BICL2 #FSBSM_RDLN,FSBSL_STA(R6S 
96 198 ; clear RDLN Sag 
57 18 56 C1 0967 1608 ADDL3 R6,#FSBSC_BLN,R7 ; R7 = address of RAB 
4004 A6 09 E1 096R 1609 BBC #F SB$V_PRAT,FSBSL_STA(R6S, 10S 
44 1919 ; branch if not prompting 
097 1616 ; Prompting is performed on INPUT/OUTPUT. Check if any characters in 
44 1ei2 3; OUTPUT buffer. 
58 14A6 DO 0970 1615 MOVL FSBSL_PFSB(R6) ,R8 ;_R8 = OUTPUT FSB address 
40 AB 68 D1 0974 1616 CMPL (R8) , FSBSC_BLN+RABSL_RBF (RB) 
94h 1617 i; any characters in buffer? 
am «6 244 1913 BEQL 10$ 3 no--continue 
O97A 1620 ; Characters are present in OUTPUT buffer. Write these characters as a 
34h 1 1 ; prompt for the current GET. 
04 AB 00004000 8F c8 Bora 16 j BISL2 #FSBSM_WRITPRMT,FSBSL_STA(R8) ; set flag to call writein 
06 04 AB «OD «EO 34-03 1624 BBS #F SBSV_PROMPT ,FSBSL_STA(R8) ,1$ ; was a prompt emmitted 
0987 1625 3; on the previous Line? 
4488 01 80 0987 16 : mov #PRN_LF ,@F SB$C_BLN+RABSL_RHB(R8) : no, use <LF> <prompt> 
44.88 00 80 098D 1628 1$ MOVW  § #PRN_NULL,@F SBSC_BLN+RABSL_RHB(R8) 
0991 1629 ; set null carriage control 
58 DD 0991 1630 2$ PUSHL R8 3 argument is OUTPUT FSB address 
OOOOOA12"EF 01 =FB 0993 1631 CALLS #1,PASSWRITELN >; write the prompt Line 
44 68  8D01 8F BO 099A 163¢ MOVW § #PRN_CRLF,a@F SBSC_BLN+RABSL_RHB(R8) 
O9A0 16 3; reset normal carriage control 
04 A® 00004000 8F CA Q9A0 1634 BICL2 #FSBSM_WRITPRMT,FSBSL_STA(R8) ; clear the flag which affects 
O9A8 1635 3; carriage control of a call to WRIT 
04 AB 00002000 8F CB OIA 1936 BISL2 #FSBSM_PROMPT,FSBSL_STA(R8) ; set the prompt flag 
0980 1637 10$: $GET AB= 
00018009 8F 50 01 bd 1638 CMPL RO, #RMS$_PENDING 
09 «12 C0 1639 BNEQ 105$ 
09C 1640 SWAIT RAB=R7 
9CB 1641 105$: 
0001827A 8F 50 01 9CB 1066 CMPL RO, #RMS$_EOF 3; check for eof 
06 ig 9D2 164 BNEQ 
04 A6 O02 C€ 904 1644 BISL2 #FSBSM_EOF ,FSBSL_STA(R6); set EOF flag 
11 11 0908 1645 BRB 111$ 
SDA 1966 1108: 
OE 50 €E€8 Q9DA 164 BLBS RO,111$ ; branch if ok 
50 DD O9DD 1648 PUSHL RO 
7E 78 A? 9A ODF 1649 MOVZBL <RABSC_BLN+FABSB_FNS>(R7) ,-(SP) 
70 A? «DD O9E3 1650 PUSHL <RABS$C BLN+F ABSL_FNA>(R7) 
FOFO CF O03 FB Ee 193) 1118 CALLS #3,PASSIOERROR 
66 24 A7 D0 O9EB 1888 MOVL rat! UBF (R7) , (R6) :.set pointer to first 
15 04 A6 04 €1 O9EF 1654 BBC #FSBSU_TXT,FSBSL_STA(R6) ,199$ 


L 14 | 


; -SEP- 06:19 VAX/VMS Macro v04-00 Page 30 | 
vOrpoOn en a ae 1B Ea obe 85:98:02 EPASCAL. SREIPASION MARS 1 ’ (1) 
are 1 5 ; ; done if binary file | 
a4 16 ; Set textfile parameters 
; RSZ(R7),R1 
08 as 51° 86 a4 38 1886 ADDL RAED RT FSBSC. CST (RG) ; set last to Last+1 
08 86 8 5 9FD 1661 MOVE #SPACE,SFSBSL“LST(R6) =: store EOLN blank 
1 BS AD 166 TSTL R1 3 check for EOLN 
Gs Tg BARS GES BARE Jo98 ay rsase.stacne | 
a 3 GAg3 1686 sows glint ~ ; set EOLN flag 
; M_ACTIN, FSBSL_STA(R6) 
04 A6 00000800 BF CB i bo t4 BISL2 #FSBSM_ACTI = ak ated: Yeah te | 
04 OAl1 1669 RET 
AEE 
0000041 1678 : -PSECT _PASSCODE, PIC, EXE,SHR,NOWRT 
Oat 1or8 : a ane | 
OAlg 1676 3 * PASSWRITELN 
OAl2 1878 : RERKAREKEAAEEEEEEEe 
pals 1989 Z Writes a record (Line) to the file. | 
0A1 1086 > Argument offsets | 
SAI 1684 : AP ; number of arguments (1) 
00000004 a 168? FSB_DISP = 04 ; FSB address 
000c OAl2 1687 ° zENTRY PASSURITELN, “M<R2,R3> 
Fees Fo aC DO OA19 1889 MOVE) FSB BISP(AP) ,R2 : R2 = address of FSB 
53 18 2 C1 OAID 1690 ADDL3 R2,#FSBSC seat 3; R35 = address of RAB 
0H ag APF BS, Tee) ARE RMS ER $2) 
6e A : WRITELN: <text> <CR> 
2304 a2 «(0E-SC#EO OAgA 1638 BBS #F SBS$V_WRITPRMT ,FSBSL_STA(R2) ,10$ du 2 WRLTELN text> 
OA2F 1695 
#FSBSV_PROMPT,FSBSL_STA(R2) ,10$ 
44 62°" $500 g? EO Ba f 1899 a FPR, R, af SBSC_BLN+RABSL_RHB(R2) 
04 A3_ 02 CA Nes 1899 BICL2 #RABSR TPT ,RABSL_ROP(R3) : clear TPT bit 
Sar BO AeA 1504 move #PRN_CRLF ,aF SB$C_BLN+RABSL_RHB(R2) 
a a) Oy * Bt Ag 1708 BRB 105$~ 
A52 1703 108 $PUT —- RAB=R3 | 
TPT, RABSL_ROP(R3) ; clear TPT bit 
- 31, g 9 nse 1708 sess tetas RO BIOS tan 3 branch if error 
A : 
. TA(R2) ; clear the prompt flag 
o oz araons sk SE HUG? RR coer tom stacny spy te 
0c A2 10 A201 AgD 1709 CMPL —s- FSBSLCNT(R2) ,FSBSL_L a2) ch (tnotinte | 
13 14 Bats 1711 BGTR 920$ 3; abort if exceeded | 


M14 
rshoaPas honey cme MHEG ABSAYSAT HARLIN. MASP ans 


62 28 A3 B? A74 ar MOVL RABSL_RBF (R3), (R2) ; set pointer to first element 
4 Are 171 RET 
A79 1714 ; 
A79 1715 ; Write error 
A79 1718 . 
A79 1717 9108: 
5 DD OA79 1718 PUSHL RO 
7E 78 A 9A A7B 171 MOVZBL <RABSC_BLN+F ABS$B_FNS>(R3) ,-(SP) 
70 A OD A7F 1720 PUSHL <RABSC— BLN+F ABS$I.— FNA>(R3) 
F65D CF 0 FB pag Vy 1 CALLS #3, PASSIOERROR 
pA . oe 3 ; Error, Linelimit exceeded 
A87 1724; 
A87 1725 $208: bef 
OC A2 DD OA87 1726 PUSHL see, ety 3; pass Linelimit 
7E 8374 BF 3C OA8A 1727 MOVZWL 74 
7E 78 A3 9A OABF 1728 MOVZBL <RABSC “BUNS FABSB -FNS>(R3) ,~(SP) 
70 A3 DD OA93 1729 PUSHL <RABSC— BLN+F ABSL_ FNA>(R3) 
F649 CF 04 FB OA96 1730 CALLS #4,PASSIOERROR 
0A9B HAY 3 
OA9B 17 ¢ 3 
QOA9B 1733; 
OA9B 1734 END 


| 


04-00 
101.MAR;1 


>uw 


; PASCAL RMS Linkage 
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SOOoOCOCOCOCOCOCOCOCOOCOCOCOCOSOSCOSOOOCOSOOSOOSOO € & €# COCO OCOOCOCOCOOCOOCOOCO « OOO OOOCOOOO 
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OOoOOCCOOCOOOOOCOOCOCODBDOOOCSOOCSOGOOCOCOSSO £ & €# COCO OCOOCOCOCOCOOOCOO « OOOO OCOOOOO 
SoDOOOOOOCOOCOCOOOOOOOCOCOCOCOCOCOSOSO £ # &#§ CDOCOOCOOOCOCOOOOOO « COCOCOOCOOCO 
hunnnnnnnnnnnnnnnnnnnnnnnnnnhan nhunoun " nhunnnun 
—te 
oa i <r YH 
= = - we DS 2w 
ee r- - a N wmo> O&O —wW a w 
—- >a. a - > & a = > oeco 2 icw « = 
ee S22zakc 2 4 > 2arkt 2 >= q a El oe ls = 
ae V8 wr OF St ea 0 ie OF Ue co o2Zzoz 2 MW J I IOUS z 
Ow2z 2052 5DOGwOOwzZzzZO Dee VDOoxeaZoaaw OO OA ew Ze Yeu eH OCe Zw 
WOO 00.0. F BO OWWO 1000.0. £— BYWYYW OV OOOMOYY Iie eur OOWOOu IZA UU 
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PASS$IO_BASIC 
Symbol table 
PASSF IND 
PASSINITFILES 
ASSINPUT 
PASSIOERROR 
SOPEN 


Pp 
PASS _ERRACCFIL 
PASDESCR 


SYSSCREATE 
SYSS$GET 
SYSSOPEN 
SYS$PUT 
SYSSREWIND 
SYSSTRNLOG 
SYSSTRUNCATE 
SYSSWAIT 
SYSINPUT 


SSREWRITE 
PASSSTATUSUPDAT 
ASSWRITELN 
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SYSOUTPUT 
TAB 


TRNLOGS_ACMODE 
TRNLOG$_DSBMSK 
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PAS$10_BASIC 
Psect Synopsis 


PSECT name 


$aass. 
_PASSCODE 


Phase 
Initialization 
Command processing 


Pass 

— table sort 
Symbol table output 
Psect synopsis output 


Cross-reference output 
Assembler run totals 


Macro Library name 
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3; PASCAL RMS Linkage 16-SEP-1984 719 VAX/VMS 
. gr SE b= 3b 88: $$ b2 LPASCAL.§ L.S 
Feeeeoeceeoecoeeces$} 
! ; _Psect synopsis H 
Allocation PSECT No. Attributes 
0000000 < os ° r: 13) -) NOPIC USR CON ABS LCL NOSHR NO 
0000000 ‘ NOPIC USR CON ABS ~ LCL NOSHR 
OOOOA9B ( 2715.) 5 >} PIC USR CON REL LCL SHR 


CPU Time Elapsed Time 

4 00:00:00 .09 00:00:00.61 
139 00:00:00.46 00:00:03.78 
418 00:00:16.71 00:00:38.13 
0 00:00:01.86 ae BS 
291 ba Ee be Se 75 
26 00:00:00.1 0:00:00.25 
00:00:00.03 00:00:00.03 

0 00:00:00.00 00:00:00.00 
910 00:00:24.28 00:00:58.19 


The working set Limit was 1800 pages. 
100189 bytes (196 pages) of virtual memory were used to buffer the intermediate code. 
ioere w were 80 pages of symbol table grace allocated to hold 1 

1734 source Lines were read in Pass 1 
30 pages of virtual memory were used to define 


"ain't object records in Pass 2. 
macros. 
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~5255$DUA28: CSYSLIBISTARLET.MLB; 2 25 

1470 GETS were required to define 25 macros. 

There were no errors, warnings or information messages. 
MACRO/DISABLE=TRACE/LIS=LIS$:PASIO1/0BJ=OBJ$:PASIO1 MSRC$:PASIO1/UPDATE=(ENH$:PASIO1) 


non-local and 88 local symbols. 
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